Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Opening a DAO Recordset Using a Table

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