数据库的课程设计，先做一个登陆窗体，各位大佬帮帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/21 13:00:51
比如数据库里有一个口令表：
用户名 密码
0101 1188
0102 2233
0103 4422
该怎么样使登陆对话框只有在这用户名和密码都正确的情况下登陆系统？？（求写出VB的代码）最好写上如何添加用户的代码。谢谢。

Private Sub Command1_Click()
Dim sa As String
Visitor = Text1
If admin = True And guest = False Then

sa = "select * from adminlogin where admin='" & Trim(Text1.Text) & "'" & " And password ='" & Trim(Text2.Text) & "'"
Me.Adodc1.RecordSource = sa
Me.Adodc1.Refresh
ElseIf admin = False And guest = True Then

sa = "select * from guestlogin where guest='" & Trim(Text1.Text) & "'" & " And password ='" & Trim(Text2.Text) & "'"
Me.Adodc1.RecordSource = sa
Me.Adodc1.Refresh
End If

If Me.Adodc1.Recordset.RecordCount = 0 Then
MsgBox "密码错误"
Else
If admin = False And guest = True Then
guestform.Show
Me.Hide
ElseIf admin = T