在"用户表"中有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.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 fd1 = 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