كيف اصمم صفحت الدخول و الباسور ؟

مرحبا

انا بالأساس صممت برنامج كامل بس المشكله فيه هي صفحت الباسورد مع اليوزر نيم

ما يرضى يشتغل عدل ؟؟

واجهة صفحة الدخول

Private Sub back_Click()
screen.Show
End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)

End Sub

Private Sub exit_Click()
End
End Sub

Private Sub Passwordlogin_Load()

Set db = OpenDatabase("C:\ Medical Service97")
Set rs = db.OpenRecordset("Password")

End Sub

Private Sub Form_Load()

End Sub

Private Sub login_Click()

rs.Index = "PrimaryKey"
rs.Seek "=", Tpassword.Text
If rs.NoMatch Then
MsgBox ("Password wrong")
txtPass.Text = ""
If Tusername.Text = rs("User Name") Then
Menutoole.Show
Else
MsgBox ("Wrong User Name")
End If
End If
End Sub

وهذي صفحة تغير الباسورد

Private Sub Label1_Click()

End Sub

Private Sub back_Click()
screen.Show
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub Changepassword_Load()

Set db = OpenDatabase("C:\ Medical Service97")
Set rs = db.OpenRecordset("Password ")


End Sub

Private Sub Form_Load()

End Sub

Private Sub process_Click()

If rs("password") = oldpassT.Text Then
rs.edit
rs("password") = newpassT.Text
rs.Update
MsgBox ("Password Changed")
Else
MsgBox ("Wrong Password")
End If
End Sub

أرجوا المساعده وشكرا لكم