我运行的时候怎么老是出错阿
出错指向 cnn.Open ConnectStringPrivate Sub Form_Load() Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim ConnectString As String
ConnectString = "FileDSN=d:\mmmmm.dsn;UID=admin;PWD="
Set cnn = New ADODB.Connection
cnn.Open ConnectString
Set rst = New ADODB.Recordset
rst.Open Trim$("select * from user"), cnn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rst
End Sub
出错指向 cnn.Open ConnectStringPrivate Sub Form_Load() Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim ConnectString As String
ConnectString = "FileDSN=d:\mmmmm.dsn;UID=admin;PWD="
Set cnn = New ADODB.Connection
cnn.Open ConnectString
Set rst = New ADODB.Recordset
rst.Open Trim$("select * from user"), cnn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rst
End Sub
谢谢高手执教~!~!~!