====== ADODB.Recordset ======
Typical code to connect and list field names in a table:
<code>
Public Sub ListFields()
	Dim rst As ADODB.Recordset
	Dim fld As ADODB.Field

	Set rst = New ADODB.Recordset
	rst.Open "tblCustomers", CurrentProject.Connection
	For Each fld In rst.Fields
		Debug.Print fld.Name
	Next fld
	rst.Close
	Set fld = Nothing
	Set rst = Nothing
End Sub
</code>