[Access] Loginscript

[Carpenter]

Beste mensen,

Nadat mijn vorige topic wel heel erg snel gesloten werd, hier mijn nieuwe vraag.
Ik heb een loginscriptje geprobeerd te maken voor mijn access database (zie onderstaand)
--------------------------------------------------------------------------
Private Sub btn_inloggen_Click()

Dim dbs As Database, rst As Recordset, rstLogin As Recordset
Dim rstRolf

Set dbs = CurrentDb
Set rstLogin = dbs.OpenRecordset("SELECT medewerker_profiel_pass FROM tbl_medewerker_profiel WHERE medewerker_profiel_user = '" & [txt_username] & "'", dbOpenDynaset, dbReadOnly)

txt_username.SetFocus
If txt_username.Text = "" Then
MsgBox "U dient een gebruiksersnaam op te geven", vbOKOnly, "Inloggen"
Else
txt_password.SetFocus
If txt_password.Text = "" Then
MsgBox "U dient een password op te geven", vbOKOnly, "Inloggen"
ElseIf rstLogin.EOF Then
MsgBox "De gebruikersnaam die u heb ingevult bestaat niet", vbOKOnly, "Inloggen"
ElseIf rstLogin.Fields(0) <> txt_password.Value Then
MsgBox "Het password dat u hebt ingevoerd is niet correct", vbOKOnly, "Inloggen"
Else
DoCmd.OpenForm "frm_bevinding", acNormal
End If
End If

rstLogin.Close
Set dbs = Nothing

End Sub
--------------------------------------------------------------------------

Nou heb ik dit gemaakt met een recordset, maar dit vind ik eigenlijk geen goede oplossing. Ik zou dit liever met tabellen willen doen maar ik ben er nog niet echt uit gekomen.
Zou iemand mij willen helpen om bovenstaande code zo te maken dat ik geen recordset meer nodig heb maar een tabel(len)? En zou iemand mij misschien kunnen vertellen hoe ik kan deze login hoofdletter gevoelig kan maken?

Carpenter

[whoami]

Was ik onduidelijk?
[rml][ Access] VB Logincode in database[/rml]