登陆窗口用户名验证代码有问题，请帮忙看下

Question

Private Sub cmdLogin_Click()    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strConn As String
    Dim strSQL As String
    
    strConn = "provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\x.mdb"
    
    Set conn = New ADODB.Connection
    conn.Open strConn
    strSQL = "select * from user where user_ID = '" & txtUser.Text & "'"
    
    Set rs = New ADODB.Recordset
    rs.Open strSQL, conn, adOpenDynamic, adLockOptimistic'为什么这句老出现问题，什么“systax error in from clause”
    
    ''''''''''''''''''''''''''先写这些
    frmMainMDI.Show
    Unload Me
End Sub
＝＝＝帮忙看下

Answer 1

dim strSQL as String
dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.connectionstring=连接字符串
cn.open
cn.CursorLocation = adUseClient
strSQL ="select 密码 from 表 where 登录名='" & txtUserID.Text & "'"
rs.open strSQL,cn,adOpenStatic, adLockReadOnly
if rs.recordcount = 0 then
 msgbox "用户名不正确"
else
 if rs.fields[0].value = txtPwd.text then
   msgbox "登录成功"
 else
   msgbox "密码错误"
 end if
end if思路是这样的你在根据实际情况改动

Answer 2

你的表名user有问题必须写成"[user]" user在ACCESS中是关键字所以要加一个中括号
是不是这样？

Answer 3

谢谢 samying， user 必须加 中括号。