Public Function getFieldNames(tableName As String) As String
Dim rs As DAO.Recordset
Dim fld As DAO.Field
Set rs = CurrentDb.OpenRecordset(tableName)
For Each fld In rs.Fields
getFieldNames = getFieldNames & fld.Name & ";"
Next fld
getFieldNames = Left(getFieldNames, Len(getFieldNames) - 1)
End Function