采用的VB+ACCESS 引用ado2.5 出错位置rs.Open sql, cn, 1, 1  提示为“from子句错误语法错误”

Dim cn As New ADODB.Connection
Private Sub Command1_Click()
Dim sql As Variant
Set rs = New ADODB.Recordset
sql = "select * from user where  username=" & Text1.Text & ""
rs.Open sql, cn, 1, 1
If rs.EOF = True Then
  MsgBox "该用户名不存在", vbOKCancel + 48, "提示"
  Else
  If rs("userpassword") = Trim(Text2.Text) Then
  main.Show
  Unload Me
  Else
   MsgBox "密码输入错误", vbOKCancel + 48, "错误"
   Text2.Text = ""
   Text2.SetFocus
   End If
End If
   
   
End Sub

Private Sub Form_Load()

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\file.mdb;Persist Security Info=False"
Dim rs As ADODB.Recordset
End Sub

[ 本帖最后由 wangzhongda 于 2014-11-12 06:46 编辑 ]

sql = "select * from user where  username='" & Text1.Text & "'"

还是错误 大神啊

sql = "select * from [user] where  username='" & Text1.Text & "'"
可能user是sql语句的关键字

以下是我先前做的：
Static n As Integer      '静态变量用于统计登录次数
 
  Dim S As String
   S = App.Path & "\整治.mdb" '　数据库安装在安装夹内
  
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" + Chr(34) + S + Chr(34) & ";Jet OLEDB:Database Password=chen3523;"  '打开有密码数据库，密码为“chen3523”

 Dim SQL As String, Purview$
      SQL = "SELECT * FROM 人权表   where 姓名  = " & Chr(34) + Trim$(Text1(0).Text) + Chr(34)
       = adCmdunknow               
      Adodc1.RecordSource = SQL
      Adodc1.Refresh
   
 If Trim$(Text1(0).Text) = Adodc1.Recordset("姓名") And Text1(1).Text = Adodc1.Recordset("密码") Then
     
     Unload Me
     ‘打开要进入的窗口
 Else
    n = n + 1
    If n < 3 Then
       i = MsgBox("密码错误，请重新输入！", vbCritical + vbRetryCancel + vbDefaultButton1, "登录失败")
          If i = vbRetry Then
             Text1(1).Text = ""
             Text1(1).SetFocus
          Else
             End
          End If
    Else
         End
    End If
 End If

很感谢诸位的解答 将user加[]后问题 解决

本人菜鸟一只，找志同道合的伙伴学vb