Private Sub Command1_Click()
Adocd1.RecordSource = " SELECt * FROM users WHERe usename ='" + Text1.Text + "' AND PASSWORD = '" + Text2.Text + "'"
Adocd1.Refresh
If Adocd1.Recordset.RecordCount = 0 Then
MsgBox "用户名或密码错误!"
Else
usetype = Adocd1.Recordset.Fields(" usetype ").Value
Unload Me
Form2.Show
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Command1这个控件,实现登录,
Adocd1.RecordSource = " SELECt * FROM users WHERe usename ='" + Text1.Text + "' AND PASSWORD = '" + Text2.Text + "'"
这条语句哪里错了,高手看哈