网上找的VB+ACCESS登陆
Private Sub Command1_Click()
  Adodc1.RecordSource = "select * from sysname where user_name='" & Text1.Text & "'"  ‘数据库名为sysname
  Adodc1.Refresh
  If Adodc1.Recordset.EOF Then
     MsgBox "NO USER_NAME"
  Else
    If Text2.Text = Adodc1.Recordset.Fields("user_password") Then
       Form1.Show 0
       Unload Me
    Else
      MsgBox "password err"
    End If
  End If
  End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_Change()

End Sub

我只是把数据库改了，运行时出错。
from 子句语法错误
实时错误 '－2147217900 （80040E14）
对象'refresh'的方法'IAdodc'失败
Adodc1.refresh  这一行变成黄色

[ 本帖最后由 zzq70 于 2012-12-5 16:23 编辑 ]