Private Sub btnLesen_Click()
    sSQL = "SELECT * FROM tblAdressen WHERE AdressNr = 8"
    aRs.CursorLocation = adUseClient
    aRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
    If aRs.RecordCount > 0 Then
       sevVorname = aRs!Vorname
       sevStrasse = aRs!Strasse
       sevOrt = aRs!Ort
       sevName = aRs!Nachname
    End If
End Sub