选择题 7.  在“用户表”中有4个字段:用户名(文本型,主关键字),密码(文本型),登录次数(数字型),最近登录时间(日期/时间型)。在“登录界面”的窗体中有两个名为tUser和tPassword的文本框,一个登录按钮Command0。进入登录界面后,用户输入用户名和密码,单击登录按钮后,程序查找“用户表”。如果输入的用户名和密码全部正确,则登录次数加1,显示上次的登录时间,并记录本次登录的当前日期和时间;否则,显示出错提示信息。为完成上述功能,程序中下划线处应填入的语句为______。
    Private Sub Command0_C1ick()
    Dim cn AS New ADODB.Connection
    Dim rs AS New ADODB.Recordset
    Dim fd1 AS ADODB.Field
    Dim fd2 AS ADODB.Field
    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 = rs.Fields("登录次数")
    Set fd2 = rs.Fields("最近登录时间")
    If__________Then
    fdl = fd1 + 1
    MsgBox "用户已经登录:" & fd1 & "次" & 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
【正确答案】 A
【答案解析】