Dim db As Database Dim tbl1 As Recordset Set db = DBEngine.OpenDatabase("C:\bd1.mdb", False, False) Set tbl1 = db.OpenRecordset("SELECT * FROM client;", dbOpenSnapshot)