Sub Open_Table()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim fld As ADODB.Field
rst.ActiveConnection = conn
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
rst.Open "Select * from tblDisabilityElig", conn, adOpenKeyset, adLockOptimistic
Do Until rst.EOF
For Each fld In rst.Fields
Debug.Print fld.Name & "=" & fld.Value
Next fld
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
conn.Close
Set conn = Nothing
End Sub
Do more with
Premium Content
You need an Expert Office subscription to comment.Start Free Trial