Option Explicit Dim rsUser As ADODB.RecordsetPrivate Sub Form_Load() Dim SqlStr As String SqlStr = "select userid,username,pwd from user" Set rsUser = New ADODB.Recordset rsUser.Open SqlStr, MDIForm1.Conn, adOpenKeyset, adLockOptimistic DataGrid1.DataSource = rsUser End Sub 错在哪里了?
Dim rsUser As ADODB.RecordsetPrivate Sub Form_Load() Dim SqlStr As String
SqlStr = "select userid,username,pwd from user"
Set rsUser = New ADODB.Recordset
rsUser.Open SqlStr, MDIForm1.Conn, adOpenKeyset, adLockOptimistic
DataGrid1.DataSource = rsUser
End Sub
错在哪里了?