<code>Dim Db As Database
Dim Tabelle As Recordset
 
strPath = "c:eigene dateiendaten"
strFile = "paradox.db"
 
Set Db = OpenDatabase(strPath, False, False, "Paradox 3.x;")
Set Tabelle = Db.OpenRecordset(strFile)</code>