我自己设计了登陆界面，可是不知道在commmand里面写些什么语句可以实现账号密码登陆

Private Sub Command1_Click()
Dim db As Database
Dim rs1, rs, rs2 As Recordset
Dim ws As Workspace
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\死神.mdb", False, False)
Set rs = db.OpenRecordset("tbl_user", dbOpenTable)
Dim a1, b1 As String
If Len(Text1.Text) = 0 Then
Label3.Caption = "请输入用户名!"
Else
Set rs1 = db.OpenRecordset("Select * from tbl_user where username = '" & Trim(Text1.Text) & "'")
If rs1.RecordCount = 0 Then
Label3.Caption = "无此用户名!"
Else
a1 = rs1("password")
If a1 = Text2.Text Then
Form2.Visible = True
Unload Me
Else
Label3.Caption = "密码错误！"
End If
End If
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub