Всем привет!!!  хотел написать простенький код в Access чтобы обновить поле в таблице базы данных. Вот собственно сам код:

Sub qweer()
Dim con As New ADODB.Connection
Dim comm As New ADODB.Command
Dim strSQL As String
Set con = CurrentProject.Connection
Set comm = New Command
With comm
    .ActiveConnection = con
    .CommandText = "UPDATE  люди Set поле1=глеб WHERE поле2='мартынов';"
    .CommandType = adCmdText
    .Execute
End With


End Sub



В ошибке пишет что отсутсвует значение для одного или нескольких требуемых параметров. 


не подскажите что это за параметры и зачем они нужны?

Option Base 1
Sub qwerty()
Dim klyuch As Integer 'контрольный ключ
Dim s As Integer
Dim ArProizv(23) As Integer
Dim prov
Dim ArVeca(23) As Integer ' задаем массив весовых коэффициентов
Dim a As String, k As String
Dim i As Integer
Dim ArKorDo(20) As Variant 'задаем массив для элементов начального корсчета
Dim ArBik(9) As Variant ' задаем массив для элементов бика
Dim ArKorBikBegin(23) As Variant
UserForm1.TextBox1.Value = "40102810000000010001"
a = UserForm1.TextBox1.Value ' присваеваем стороковой переменной номер начального корсчета

UserForm1.TextBox3.Value = "040305000" ' присваиваем строковой переменной номер бика
k = UserForm1.TextBox3.Value
 
 ' заполняем массив корсчета элементами
 For i = 1 To 20
    ArKorDo(i) = Val(Right(Left(a, i), 1))
 Next i
 
 ' заполняем массив бика элементами
 For i = 1 To 9
    ArBik(i) = Val(Right(Left(k, i), 1))
 Next i
 
ArBik(4) = 0 ' добавляем разряд бику

 ' заполняем кор-бик массив элементами
 For i = 1 To 3
    ArKorBikBegin(i) = ArBik(i + 3)
 Next i
 For i = 4 To 23
    ArKorBikBegin(i) = ArKorDo(i - 3)
 Next i
 
'Worksheets("лист1").Activate
'For i = 1 To 23
'Worksheets("лист1").Cells(i, 1).Value = ArKorBikBegin(i)
'Next i

 ' заполняем массив весов
 ArVeca(1) = 7
 ArVeca(2) = 1
 ArVeca(3) = 3
 ArVeca(4) = 7
 ArVeca(5) = 1
 ArVeca(6) = 3
 ArVeca(7) = 7
 ArVeca(8) = 1
 ArVeca(9) = 3
 ArVeca(10) = 7
 ArVeca(11) = 1
 ArVeca(12) = 3
 ArVeca(13) = 7
 ArVeca(14) = 1
 ArVeca(15) = 3
 ArVeca(16) = 7
 ArVeca(17) = 1
 ArVeca(18) = 3
 ArVeca(19) = 7
 ArVeca(20) = 1
 ArVeca(21) = 3
 ArVeca(22) = 7
 ArVeca(23) = 1
 
 'ищем произведения весовых коэффицентов на элементы массива кор-бика и берем только второй разряд от каждого произведения + ищем их сумму и берем только младший разряд
  s = 0
  For i = 1 To 23
    ArProizv(i) = (ArKorBikBegin(i) * ArVeca(i)) Mod 10
    s = s + ArProizv(i)
 Next i
 
 'расчет контрольного ключа
 klyuch = ((s Mod 10) * 3) Mod 10
 
 ' установка ключа
 ArKorDo(9) = klyuch
 
 ' ВВОД кор счета с ключем в текстовое поля 2
 For i = 1 To 20
    UserForm1.TextBox2.Value = UserForm1.TextBox2.Value + CStr(ArKorDo(i))
 Next i
 UserForm1.Show

как минимум