1、VB6.0 + Access 制作登陆界面Data Source=“ Persist Security Info=False“ 将 Data Source 处的路径改为你本机数据库所在路径即可conn.Open connectionstringEnd Sub接着双击“确定” ，同样的，输入如下代码：Private Sub Command1_Click()Dim sql As StringDim conn As New ADODB.ConnectionDim rs_login As New ADODB.RecordsetIf Trim(Text1.Text) = “ Then 检测用户名正确与否
2、MsgBox “用户名不能为空，请重新输入！“, vbOkOnly + vbExclamation, “错误“Text1.SetFocusElsesql = “select * from Test where test_info = “ & Text1.Text & “rs_login.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_login.EOF = True ThenMsgBox “用户名不存在，请重新输入！“,vbOkOnly + vbExclamation , “错误“Text1 = “Text1.SetFocusElse
3、检测密码正确与否If Trim(rs_login.Fields(1) = Trim(Text2) Thenrs_login.CloseUnload MeForm2.ShowElseMsgBox “密码错误，请重新输入！ “, vbOKOnly + vbExclamation, “错误“Text2.SetFocusEnd IfEnd IfEnd IfEnd Sub最后双击“取消”按钮，输入如下代码：Private Sub Command2_Click()MsgBox “您已成功退出！“, vbOkOnly + vbExclamation, “提示“Unload MeEnd Sub如果想加入三次输入错误就退出的功能，这个倒网上找个小代码加入Command_Click()就行了，思路是定义一个变量，赋初值为 0 ，错误一次，这个变量增加 1 ，如果这个变量等于 3 了，就 Unload Me。步骤五：启动（F5）有了上面的步骤，接下来就是检验成果的阶段了，当然，我知道，跟着我的步骤来，难免还是会出现登陆不上的错误，而到了这个时候，就是考验你的耐心与细心的时候了，多多查证，多方对比，相信发现问题不难。最后，祝你好运！
