试了一下,发现不是只读的问题,是游标没设置为客户端游标:Private Sub Command1_Click() Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset
conn.CursorLocation = adUseClient '<<<<<<<<<<<<
conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=c:\;Extensions=asc,csv,tab,txt;" rst.Open "select * from [test.csv]", conn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rst End Sub
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
conn.CursorLocation = adUseClient '<<<<<<<<<<<<
conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=c:\;Extensions=asc,csv,tab,txt;"
rst.Open "select * from [test.csv]", conn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rst
End Sub