Dim sName As String
Dim sVorname As String
Dim sOrt As String
Dim db As Database
Dim rs As Recordset
 
Set db = DAO.OpenDatabase("PfadZurDatenbank.mdb")
Set rs = db.OpenRecordset("SELECT Name, Vorname, Ort FROM Tabelle")
 
If Not Rs.EOF Then
   sName = rs!Name
   sVorname = rs!Vorname
   sOrt = rs!Ort
End If
 
rs.Close
Set rs = Nothing