Kodingan Tombol Proses Ubah Password

Private Sub cmdproses_Click()
    If txtulangpass.Text = txtpassbaru.Text Then
        query = "update user set password='" & txtpassbaru.Text & "' where iduser= '" & txtid.Text & "'"
        conn.Execute query
        MsgBox "Passwor Berhasil di update"
        Unload Me
        frmutama.Show
        frmutama.Enabled = True
        frmutama.mnlogin.Enabled = True
        frmutama.mnubahpassword.Enabled = False
    Else
        MsgBox "Password Tidak Sama"
    End If
End Sub