Всем добрый день!
Просьба помочь!
Есть процедура, которая в 2010 офисе вставляет строки в форму.
Как заставить ее работать в 2016 версии 64бита?
Проект большой, все остальное в нем работает в 2016 версии.
Ошибка во вложении.

Private Sub CommandAddA_Click()
    On Error GoTo Err_CAA_C
    If IsNull(cdsc.Value) = True Or cdsc.Value = "" Then
        MsgBox "Warning, vbOKOnly + vbDefaultButton1 + vbExclamation, "Microsoft Access"
        Exit Sub
    End If
    Dim fid As Integer, cid As Integer
    Dim RSset As ADODB.Recordset
    Set RSset = New ADODB.Recordset
    With RSset
        .Source = "SELECT fid FROM filial WHERE fdsc = '" & fdsc.Value & "'"
        .ActiveConnection = CurrentProject.Connection
        .Open
    End With
    fid = RSset(0)
    RSset.Close
    With RSset
        .Source = "SELECT cid FROM cfo WHERE cdsc = '" & cdsc.Value & "'"
        .ActiveConnection = CurrentProject.Connection
        .Open
    End With
    cid = RSset(0)
    RSset.Close
    Set RSset = Nothing
    Dim rssel As ADODB.Recordset, rsins As ADODB.Recordset
    Set rssel = New ADODB.Recordset
    Set rsins = New ADODB.Recordset
    With rssel
        .Source = "SELECT aid FROM article"
        .ActiveConnection = CurrentProject.Connection
        .CursorType = adOpenKeyset
        .Open
        .MoveFirst
    End With
    With rsins
        .Source = "SELECT * FROM article_data"
        .ActiveConnection = CurrentProject.Connection
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open
    End With
    Dim i As Integer
    For i = 0 To rssel.RecordCount - 1
        rssel.Move i, adBookmarkFirst
        rsins.AddNew
        rsins(0) = fid
        rsins(1) = cid
        rsins(2) = rssel(0)
        rsins.Update
    Next i
    rssel.Close
    rsins.Close
    Set rssel = Nothing
    Set rsins = Nothing
    ArticleList.Enabled = True
    ArticleList.SetFocus
    ArticleList.Requery
    CommandAddA.Visible = False
    CommandUpdateA.Visible = True
Exit_CAA_C:
    Exit Sub
Err_CAA_C:
    MsgBox Err.Number & Chr(13) & Err.Description
    Resume Exit_CAA_C
End Sub

http://www.sql.ru/forum/1279803/procedura-ne-zapuskaetsya-v-access-2016