Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Recordset Open method

Sub RecSetOpen()    Dim rst As ADODB.Recordset    Dim strConnection As String    strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _       "Data Source=" & CurrentProject.Path & _       "\mydb.mdb"    Set rst = New ADODB.Recordset    With rst       .Open "Select * From Customers", _           strConnection, adOpenForwardOnly       .Save CurrentProject.Path & "\MyResultset.dat"       .Close    End With    Set rst = Nothing End Sub