在click中有:  
  SQL = "select * from User where ID ='" & UserId & "'"
    Check.Open SQL, DBCnn, adOpenStatic, adLockOptimistic在formload中Private Sub Form_Load()
    Dim strSql As String
    Dim strFileName As String
    
    UserName.Text = ""
    Pwd.Text = ""
    
    strFileName = "student.mdb"
    strSql = "Provider= Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\" & strFileName
    DBCnn.Open strSql   
End Sub为什么说from子句出错!!!