请教一个密码登录的问题

Question

这是一个登录界面的确定按钮的代码，界面上有两个text,分别是用户名和密码的，请问该如何改正代码？
Private Sub Command1_Click()
Dim msg
oldmask = Data1.Recordset.Book
msg =
Data1.Recordset.FindFirst msg
If Data1.Recordset.NoMatch Then
MsgBox ("你无权进入本系统")
Else
Form3.Show
End If
End Sub

Answer 1

Data1.Recordset.FindFirst msg<-有问题
改成这样的：
Data1.Recordset.FindFirst “UserName = '” & text1.text & "'"