家庭收支系统 vb access

。。。 Private Sub cmdOK_Click() Dim DB As Database Dim RS As Recordset Dim username As String Dim Password As String Set DB = OpenDatabase(App.Path & "\user.mdb") Set RS = DB.OpenRecordset("user") If textuser.Text "" Then username = textuser.Text Password = textpassword.Text Do While Not R