Database

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Long, j As Long

cnn.Open "MYDB"

Set rs = cnn.OpenSchema(adSchemaTables)

Debug.Print "Number of Records ", rs.RecordCount
Debug.Print "No of Fields : ", rs.Fields.Count


For j = 0 To rs.Fields.Count - 1
    Debug.Print rs.Fields(j).Name & " ";
Next j


Debug.Print


For i = 0 To rs.RecordCount - 1
    For j = 0 To rs.Fields.Count - 1
        Debug.Print rs.Fields(j).Value & " ",
    Next j
    
    Debug.Print
    
    rs.MoveNext
Next i


rs.Close
cnn.Close