Dim myDB as DataBase
Dim myRS as RecordSet
Set myDB = DBEngine.OpenDataBase("c:\kunden.mdb")
Set myRS = myDB.OpenRecordSet("SELECT * FROM DeineTabelle WHERE Name = 'Meier'" & _
  "")
Label1.Caption = myrs!Kundennummer
myrs.Close
myDB.Close
Set myRS = Nothing
Set myDB = Nothing