Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Opening a Recordset

Sub OpenRst()    Dim rst As ADODB.Recordset    Set rst = New ADODB.Recordset    With rst       .Source = "Select * from Employees"       .ActiveConnection = CurrentProject.Connection       .Open       Debug.Print rst.Fields.count       .Close    End With    Set rst = Nothing End Sub