vb ADO控件连接ACCESS数据库做登录密码的例子

'准备好ACCESS数据库，建一个Uesr_id表，表中建两个字段就可以了。

'在[工程]菜单下选择[部件]；在弹出的窗口内勾选[Microsoft ADO Data Control 6.0]然后确定。
'在工具栏中双击Adodc控件，Adodc控件添加到form内，在form内右单击Adodc1选择属性ADODC属性，
'在弹出的窗口中单击[生成]，在弹出的窗口中选择Microsoft Jet 4.0 OLE DB Provider，
'单击下一步,在弹出的窗口中单击[...]选择Access数据库所在的路径，单击[确定]，然后在属性页
'上单击[记录源]，命令类型选择[2-adCmdTable];表或存储过程名称选择[User_id]，单击[确定]，
'设置Adodc1的Visible属性为False,ADO控件已经设置好了。
'向form内添加两个TextBox分别为text1和text2分别把它们的text属性值设置为空，把text2的
'PasswordChar值设置为*,再向form内添加一个按钮CommandButton,默认为Command1;
'现在所有控件都准备好了，下面编程解决登录问题。


Private Sub Command1_Click()
  Dim U As Boolean, P As Boolean, Ok As Boolean
  With Adodc1
    .Refresh
    Do While Not .Recordset.EOF
      U = .Recordset.Fields(0).Value = Text1.Text '字段0为用户名称
      P = .Recordset.Fields(1).Value = Text2.Text '字段1为用户密码
      If U And P Then
        Ok = True
        Exit Do
      Else
        .Recordset.MoveNext
      End If
    Loop
  End With
 
  If Ok Then
    MsgBox "登录成功"
  Else
    MsgBox "登录失败"
  End If