Запрос на добавление (3 варианта) и все не работают

Вторник, 17 Октября 2017 г. 08:18 + в цитатник

Пиветствую!

Подскажите по ошибке в написании запроса на добавление:

    Dim r As String
    r = "insert into Таблица (Дата,Фрукт,Овощ,Огурец,Банан) values (#" & Format(Me.Дата.Value, "mm\/dd\/yy") & "#, '" & Me.Фрукт.Value & "',  '" & Peremennay1 & "', '" & Peremennay2 & "', '" & Peremennay3 & "')"
    Debug.Print r
    CurrentDb.Execute r, dbFailOnError

r= insert into Таблица (Дата,Фрукт,Овощ,Огурец,Банан) values (#10/17/17#, 'Яблоко',  'Помидор', 'БАрабашка', 'Домовой')

Ошибка 3001 - Ошибочный аргумент

Пробовал и так:

'DoCmd.RunSQL "INSERT INTO Таблица (Дата,Фрукт,Овощ,Огурец,Банан)" & _
 "VALUES (#" & Format(Me.Дата.Value, "mm\/dd\/yy") & "#, '" & Me.Фрукт.Value & "',  '" & Peremennay1 & "', '" & Peremennay2 & "', '" & Peremennay3 & "');"

Ошибка 3001 - Ошибочный аргумент

Пробовал и так:

Dim rst As Recordset

        Set rst = CurrentDb.OpenRecordset("Таблица", dbOpenDynaset)
            With rst
                .AddNew
                ![Дата] = Me.Дата
                ![Фрукт] = Me.Фрукт
                ![Овощ] = Peremennay1 
                ![Огурец] = Peremennay2
                ![Банан] = Peremennay3
                .Update
            End With
        rst.Close
        Set rst = Nothing