Read record in recordset by referening the field name with '!'

 
Public Sub Loops()
    Dim con As ADODB.Connection
    Dim rs As New ADODB.Recordset
    Set con = New ADODB.Connection
    
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\store.mdb;"
    
    rs.CursorLocation = adUseServer
    rs.Open "SELECT * FROM Employees", con, adOpenStatic, adLockOptimistic
    
    Do While Not rs.EOF
        Dim strName As String
        Debug.Print rs!txtCustFirstName & " " & rs!txtCustLastName
        rs.MoveNext
    Loop
    Debug.Print rs.RecordCount & " records: "
   
    Set rs = Nothing
    Set con = Nothing
End Sub

Related examples in the same category

1.	Append new columns to new table
2.	Delete a column
3.	Adding a New Field to a Table
4.	Removing a Field from a Table
5.	Set column properties by using ADOX.Table
6.	Listing Field Properties
7.	Get field properties
8.	Listing Tables and Their Fields Using the OpenSchema Method
9.	Adding a New Money type Field to an Existing Table
10.	Adding a Field with SQL command
11.	Changing the Field Data Type with SQL command
12.	Changing the Size of a Field with SQL command
13.	Deleting a Field from a Table with SQL command
14.	Setting a Default Value for a Field with SQL command
15.	Changing the Start (Seed) Value of the AutoNumber Field with SQL command
16.	Open a table and read data by column
17.	Show field name, type and value data type
18.	Read specific columns from Recordset
19.	Checking for Existence of a Field

Read record in recordset by referening the field name with '!' : Table Column Field « Access « VBA / Excel / Access / Word

Related examples in the same category