Public Function GetColumnList(ViewName As String, Optional Divader As String) As String
Dim db As dao.Database
Dim rc As dao.Recordset
Dim fld As dao.Field
Dim strSQL As String

Set db = CurrentDb
strSQL = "select * from " & ViewName
Set rc = db.OpenRecordset(strSQL, dbOpenForwardOnly, dbReadOnly)

strSQL = ""
If Len(Divader) =  0  Then Divader = ";"

For Each fld In rc.Fields
  strSQL = strSQL & "[" & fld.name & "]" & Divader
Next
strSQL = left(strSQL, Len(strSQL) -  1 )

GetColumnList = strSQL

Exit_Function:
    On Error Resume Next
    rc.Close: Set rc = Nothing
    db.Close: Set db = Nothing
    Exit Function
    
Err:
    MsgBox Err.Description, vbCritical
    Resume Exit_Function
End Function