CodeItBetter Programming Another VB Programming Blog

'Database - Procedure which uses DAO to print all values in a recorset.
Sub PrintRec(strPath, Source)
    'strPath is the path to the database
    'Source is the source of the recordset. It could be a table or SQL query.

    Dim dbs As Database, tdf As TableDef
    Dim rst As Recordset, fld As Field
 
    Set dbs = OpenDatabase(strPath)
    Set rst = dbs.OpenRecordset(Source)
 
    With rst
        Do While Not .EOF
            'Iterate through fields collection
            For Each fld In rst.Fields
                'Print results to debug window
                Debug.Print fld.Name, fld.Value
            Next fld
            'next record
            .MoveNext
        Loop
        Debug.Print
    End With
    'close objects
    rst.Close
    Set rst = Nothing
    dbs.Close
    Set dbs = Nothing
End Sub