Private Function IsNonText()

End Function

Sub fromExcelToAccess()

Dim dbe As Object 'DAO.DBEngine
Dim db As Object 'DAO.Database
Dim rst As Object 'DAO.Recordset
Dim i As Long
Dim b1 As Boolean

Set dbe = CreateObject("DAO.DBEngine.120")
Set db = dbe.OpenDatabase("C:\db_product.accdb")
Set rst = db.OpenRecordset("select * from WAGO", 2) 'dbopendynaset

For i = 1 To Range("b" & Cells.Rows.Count).End(xlUp).Row - 1
rst.findfirst "Артикул='" & Range("b" & 1 + i).Value & "'"
If rst.nomatch Then
rst.AddNew

[b]Set b1 = IsNonText(Range("f" & 1 + i).Value)
If b1 Then[/b]
rst("Короткий артикул").Value = Range("a" & 1 + i).Value
rst("Артикул").Value = Range("b" & 1 + i).Value
rst("Описание_RU").Value = Range("c" & 1 + i).Value
rst("Количество в упаковке").Value = Range("d" & 1 + i).Value
[b]rst("Цена в рублях, без НДС").Value = Range("f" & 1 + i).Value[/b]
rst("Группа продукции").Value = Range("g" & 1 + i).Value
rst("Код группы изделий/Серия").Value = Range("h" & 1 + i).Value
rst("Скидка").Value = Range("i" & 1 + i).Value
Else
rst("Короткий артикул").Value = Range("a" & 1 + i).Value
rst("Артикул").Value = Range("b" & 1 + i).Value
rst("Описание_RU").Value = Range("c" & 1 + i).Value
rst("Количество в упаковке").Value = Range("d" & 1 + i).Value
rst("Комментарий").Value = Range("f" & 1 + i).Value
rst("Группа продукции").Value = Range("g" & 1 + i).Value
rst("Код группы изделий/Серия").Value = Range("h" & 1 + i).Value
rst("Скидка").Value = Range("i" & 1 + i).Value
Комментарий
Else
rst.Edit
rst("Цена в рублях, без НДС").Value = Range("f" & 1 + i).Value
End If
rst.Update
Next
MsgBox "Готово!"
End Sub