change password code

Option Explicit
Public conn As New ADODB.connection
Public rs As New ADODB.Recordset
Public rsinsert As New ADODB.Recordset

Sub connection()
Set conn = New ADODB.connection
conn.CursorLocation = adUseClient
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ digitalsignage.mdb;Persist Security Info=False"
End Sub

Private Sub cmdPwdChanged_Click()
    If txtpass.Text = "" Then
        MsgBox "Old pasword is empty", vbCritical, Me.Caption
        Exit Sub
    End If
    If txtpassword.Text = "" Then
        MsgBox "New pasword is empty", vbCritical, Me.Caption
        txtpassword.SetFocus
        Exit Sub
    End If
    If txtchangepassword.Text = "" Then
        MsgBox "New confirm pasword is empty", vbCritical, Me.Caption
        txtchangepassword.SetFocus
        Exit Sub
    End If
    If txtpassword.Text <> txtchangepassword.Text Then
        MsgBox "New Password and Confirm password mismatch", vbCritical, Me.Caption
        txtchangepassword.SetFocus
        Exit Sub
    End If
 Set rs = conn.Execute("select * from users where Username= '" & txtuser.Text & "' and Password='" & txtpass.Text & "'")
    If rs.EOF Then
        MsgBox "Invalid old password, Password not in database", vbCritical, Me.Caption
        Exit Sub
    End If
    conn.Execute "Update users SET Password='" & txtpassword.Text = "' WHERE Username='" & txtuser.Text = "'"
     MsgBox "Password changed successfully", vbInformation, Me.Caption
     txtpass.Text = ""
     txtpassword.Text = ""
     txtchangepassword.Text = ""
End Sub


Private Sub Form_Load()
Call connection
End Sub

Private Sub cmdCancel_Click()
form2.Hide
form1.Show
End Sub