Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Creating a Recordset Using the ActiveConnection Property

Sub CreateRecordset2()     Dim rst As ADODB.Recordset     Set rst = New ADODB.Recordset     rst.ActiveConnection = CurrentProject.Connection     rst.Open "Select * From Employees"     Debug.Print rst.GetString     rst.Close     Set rst = Nothing End Sub