求助各位大侠，这是什么情况
Dim str As String
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "用户名不能为空！，请重新输入！", 16, "错误！"
Text1.SetFocus
Exit Sub

End If

If Text2.Text = "" Then
   MsgBox "密码错误，重新输入！", 16, "错误！"
   Text2.SetFocus
   Exit Sub
End If
   
   Call SJK(cdb)
   str = "Select * form login where username='" & Text1.Text & "'"
     RS.Open str, cdb, 1, 1       ‘报错就出现在这句   odbc 驱动程序不支持所需的属性
  If RS.EOF = True Then
    MsgBox "用户名错误！，请重新输入！", 16, "错误！"
    RS.Close
    Set RS = Nothing
    cdb.Close
    Set cdb = Nothing
    Exit Sub
  Else
    If Not RS!password = Text2.Text Then
       MsgBox "密码错误，重新输入！", 16, "错误！"
       RS.Close
       Set RS = Nothing
       cdb.Close
       Set cdb = Nothing
    Else
      Unload Me
      from2.Show
    End If
   RS.Close
   Set RS = Nothing
   cdb.Close
   Set cdb = Nothing
  End If
   
  

vb做的登入界面连接Access数据库

谢谢还是不行，不用模块也试了，也不行
可能是我VB安装有问题，安装时有报错