This would work for any table that you wanted to select
Dim objConn As ADODB.Connection
Dim objRec As ADODB.Recordset
Private Sub Command0_Click()
Call getfields("tblAccounts"

End Sub
Public Function getfields(tblName As String)
Dim fld As ADODB.Field
Set objConn = CurrentProject.Connection
Set objRec = New ADODB.Recordset
objRec.Open tblName, objConn, adOpenForwardOnly, adLockReadOnly, adCmdTable
For Each fld In objRec.Fields
objConn.Execute "Insert Into tblFields (Field) Values ('" & fld.Name & "')"
Next fld
Set objRec = Nothing
objConn.Close
Set objConn = Nothing
Set fld = Nothing
End Function