Добавление в таблицу данных.код внутри - VB

Option Compare Database

Private Sub Добавить_Click()
Set rs = New ADODB.Recordset
Set cnn = CurrentProject.Connection
Set c = Me.[ПолеСоСписком41]
Set s = Me.[ПолеСоСписком39]
x = 0
rs.Open "SELECT * FROM [европа_масла_1]", cnn, adOpenKeyset, adLockOptimistic

If Format(s, "yyyymmdd") <= Format(c, "yyyymmdd") And Me.[Поле25] <> Empty Then
z = s
Do While Format(s, "yyyymmdd") <= Format(c, "yyyymmdd")
rs.AddNew
rs![Название_товара] = Me.[Поле37]
rs![Дата] = Format(Me.[Поле3], "yyyymmdd")
rs![Страна_производитель] = Me.[ПолеСоСписком5]
rs![Базис_поставки] = Me.[ПолеСоСписком7]
rs![Стоимость_EUR] = Me.[Поле25]
rs![Период_поставки] = Format(s, "mmm. yyyy")
If rs![Период_поставки] = Format(z, "mmm. yyyy") Then rs![Спот] = "Спот"
s = DateAdd("m", 1, s)
rs.Update
Loop
Else: MsgBox "Проверьте корректность введения периода поставки и цены EUR"
End If

Set rs1 = New ADODB.Recordset
Set cnn1 = CurrentProject.Connection
Set c = Me.[ПолеСоСписком45]
Set s = Me.[ПолеСоСписком43]

rs1.Open "SELECT * FROM [европа_масла_1]", cnn1, adOpenKeyset, adLockOptimistic

If Format(s, "yyyymmdd") <= Format(c, "yyyymmdd") And Me.[Поле49] <> Empty Then
Do While Format(s, "yyyymmdd") <= Format(c, "yyyymmdd")
rs1.AddNew
rs1![Название_товара] = Me.[Поле37]
rs1![Дата] = Format(Me.[Поле3], "yyyymmdd")
rs1![Страна_производитель] = Me.[ПолеСоСписком5]
rs1![Базис_поставки] = Me.[ПолеСоСписком7]
rs1![Стоимость_EUR] = Me.[Поле49]
rs1![Период_поставки] = Format(s, "mmm. yyyy")
s = DateAdd("m", 1, s)
If rs1![Период_поставки] < Format(z, "mmm. yyyy") Then rs1![Спот] = "Спот"
rs![Спот]=empty
end if
rs1.Update
Loop
Else: MsgBox "Проверьте корректность введения периода поставки и цены EUR"
End If

End Sub