Recordset.AddNew не работает (VB->ADO->Access)

Dim cnnAccess As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
Dim GetIdProduct  As Long
 
Dim Id_Customer As Long
Dim Articul As Long
 
Id_Customer = 81
Articul = 43144
 
cnnAccess.Open 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
           'Data Source=\ServDData.mdb;'
 
strSQL = 'SELECT Id_Product FROM Products' & _
       ' WHERE ID_Customer = ' & Id_Customer & _
       ' AND ID_Articul = ' & Articul
 
With rst
    .ActiveConnection = cnnAccess
    .CursorLocation = adUseServer
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Source = strSQL
    .Open
End With
 
Set rst = cnnAccess.Execute(strSQL)
If rst.RecordCount > 0 Then
    GetIdProduct = rst!Id_Customer
Else
    rst.AddNew
    GetIdProduct = rst!Id_Product
    rst!Id_Customer = 81
    rst!Name = 'Name'
    rst!ID_Articul = 43144
    rst.Update
End If

 strSQL = 'SELECT Id_Product FROM Products'

  rst!Id_Customer = 81
  rst!Name = 'Name'
  rst!ID_Articul = 43144

Set rst = cnnAccess.Execute(strSQL)

rsRecordset.Open strSQL, ActiveConnectionName, adOpenDynamic, adLookOptimistic

rsRecordset.AddNew
rsRecordset.Update
Set rsRecordset = Nothing

Set rst = cnnAccess.Execute(strSQL)