Makro til Lopslag

Hej jeg har lavet en UserForm, hvor man taster data i 4 felter. Den laver så disse 4 felter om til en String.

Private Sub CommandButton1_Click()
    Dim Lejerstreng As String
    Lejerstreng = TextBox1 + "-" + TextBox2 + "-" + TextBox3 + "-" + TextBox4
    Me.TextBox6 = Lejerstreng
End Sub

Jeg vil gerne bruge Lejerstreng til at lave et lopslag ned i databasen ca. 100 rækker.

Kolonne A = lejerstreng
Kolonne B = Dato

Den skal så finde den række i Kolonne A som passer med Lejerstreng. Derefter vise værdien i Kolonne B ud for samme række i TextBox7

håber der er nogen som kan hjælpe mig :)