è giusto se faccio così??

codice:
Public Sub cmd_login_Click()
Rem variabili per contenere il cognome e la password
Dim cognome, password, cognome_app, password_app As String
cognome = txt_cognome.Text
password = txt_pass.Text
ado_banca.RecordSource = "SELECT Cognome, Password FROM Clienti WHERE Cognome =cognome AND Password=password"
ado_banca.Refresh
cognome_app = txt_cogn1.Text
password_app = txt_pass1.Text
If cognome = cognome_app And password = password_app Then
 MsgBox "Login Effettuato Con Successo!", vbOKOnly + vbExclamation, "Successo!"
 frm_accesso.Hide
 frm_conto.Show
Else
 MsgBox "Cognome o password errata!", vbOKOnly + vbExclamation, "Errore!"
End If
End Sub