Есть форма, на ней некоторое количество полей со списком и просто полей.
Данные в основном текстовые но есть две даты и 4 целых числа.

Нужно построить SQL конструкцию:
"INSERT INTO имя таблици (имена столбцов) VALUE (значения столбцов)"

Делаю так

Dim dbs As DAO.Database
Dim sql As String
Dim sqlStolb As String
Dim sqlValue As String
Dim fld As Variant
Dim nam As Variant
Dim Name As String
Dim testString As String

For Each nam In Array("Number", "Name", "Date", "part")

fld = Me(nam)

If Not IsNull(fld) Then
If sqlValue > "" Then
sqlStolb = sqlStolb & ","
sqlValue = sqlValue & ","
End If

sqlStolb = sqlStolb & nam
sqlValue = sqlValue & fld

End If
Next


Set dbs = CurrentDb
dbs.Execute "INSERT INTO CompanyTbl (" & sqlStolb & ")" & " VALUES (" & sqlValue & ")"

Если я ввожу вседанные как числовые, например в поле Name - 654, тогда все нормально проглатывает,если текст то пишет "слишком мало параметоров нужен 1"

Я так понимаю, что текстовые данные должны быть заключены в кавычки(""),как можно более универсально это сделать?

Да полей на поле много,около 20.

Спасибо Владимир Саныч, нашел в хелпе по названию, сейчас попробую.
Так что не прощаюсь:)