Ok I solved my problem. If anyone wants to know how I got the field names from a table look below.
Thanks,
James
Dim MYdb As ADODB.Connection
Dim MYrs As New ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String
Set MYdb = CurrentProject.Connection
sql = "select * from...