Sub dao() Dim myDatabase As dao.Database Set myDatabase = OpenDatabase(CurrentProject.Path & "\mydb.mdb") Dim myRecordset As dao.Recordset Set myRecordset = myDatabase.OpenRecordset(Name:="Customers", Type:=dbOpenTable) End Sub