单选题
在“用户表”中有4个字段:用户名(文本型,主关键字),密码(文本型),登录次数(数字型),最近登录时间(日期/时间型)。在“登录界面”的窗体中有两个名为tUser和tPassword的文本框,一个登录按钮Command0。进入登录界面后,用户输入用户名和密码,单击登录按钮后,程序查找“用户表”。如果输入的用户名和密码全部正确,则登录次数加1,显示上次的登录时间,并记录本次登录的当前日期和时间;否则,显示出错提示信息。为完成上述功能,程序中下划线处应填入的语句为______。
Private Sub Command0_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim fd1 As ADODB.Fieid
Dim fd2 As ADODB.Fieid
Dim StrSQL As String
Set cn=currentProject.Connection
strSQL="Select登录次数, 最近登录时间From用户表Where用户名=""&Me! tUser &
""And密码=""&Me! tPassword &"""
rs.Open strSQL, cn, adopenDynamic, adLockoptimistic, adCmdText
Set fd1=ms.Fields("登录次数")
set fd2=rs.Fields("最近登录时间")
If ______ Then
fd1=fd1+1
MsgBox"用户已经登录:"&fdl&"次"&Chr(13)&Chr(13)&"上次登录时间:"&fd2
fd2=Now()
rs.Update
Else
MsgBox"用户名或密码错误。"
End If
rs.Close
cn.Close
Set rs=Nothing
Set cn=Nothing
End Sub