Dim db As Database
Dim srec As Recordset
 
Set db = CurrentDb
Set srec = db.OpenRecordset("select left('C:\Programme\text.txt',instrrev(" & _
  "'C:\Programme\text.txt','\')-1) AS test", dbOpenDynaset, dbSeeChanges)
srec.MoveFirst
MsgBox srec.Fields("test")