Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Reading a Persisted Recordset

Sub ReadPersistedRecordset()     Dim strFileName As String     strFileName = "c:\test.txt"     If Len(Dir(strFileName)) = 0 Then         msgBox "File Not Found"         Exit Sub     End If     Dim rst As ADODB.Recordset     Set rst = New ADODB.Recordset     rst.ActiveConnection = CurrentProject.Connection     rst.CursorType = adOpenStatic     rst.LockType = adLockOptimistic     rst.Open Source:=strFileName, _         Options:=adCmdFile     Do Until rst.EOF         Debug.Print rst("EmployeeID")         rst.MoveNext     Loop     rst.Close     Set rst = Nothing End Sub