помогите с запросои

[zebra1]

Dim st_sql As String
st_sql = "Insert Into Video(Name,Year,Size,Type,Genre) Values (" & text_name & "," & text_year & "," & text_size & "," & text_type & "," & text_genre & ");"
MsgBox st_sql
Dim q As DAO.QueryDef
Set q = CurrentDb.CreateQueryDef("")
q.SQL = st_sql
q.Execute


Выдает ошибку:Run time error 3061
Слишком мало параметров.Требуется 4.

[AlexandrSid]

В строке запроса точка с запятой на конец не нужна.
Возможно проблема в том, что некоторые заполняемые поля имеют тип строка. Тогда параметры нужно передавать так что бы в запросе они тоже были в ковычках, т.е. если параметр Name это строка тогда

st_sql = "Insert Into Video(Name,Year,Size,Type,Genre) Values (""" & text_name & """," & text_year & "," & text_size & "," & text_type & "," & text_genre & ")"