登录程序

程序“ Private Sub Command19_Click() Dim a Dim RS As DAO.Recordset Dim dbs As DAO.Database Set dbs = CurrentDb() Set RS = dbs.OpenRecordset("登录", dbOpenTable) RS.MoveFirst Do Until RS.EOF If Me.用户名 = RS!姓名 And Me.密码 = RS!密码 Then DoCmd.Close DoCmd.OpenForm "同窗口查询" Exit Sub Else RS.MoveNext End If Loop a = MsgBox("用户名或密码错！", 5 + 48 + 0, "验证") If a <> 4 Then DoCmd.Close Else 用户名 = "" 密码 = "" 用户名.SetFocus End If End Sub