Access'овская кнопка "Обновить все", Не удается инициализировать поставщика данных

Четверг, 25 Мая 2017 г. 09:03 + в цитатник

Здравствуйте.

Собственно, краткая суть проблемы указана в заголовке темы, но повторю еще раз.
При нажатии кнопки в Access'овской ленте "Обновить все" выскакивает сообщение "Не удается инициализировать поставщика данных." Выскакивает на форме, и, как я понимаю, не ругается на код.

Но на всякий в случай прикладываю код:
Подключение:

Option Compare Database
Option Explicit

Public Function GetNewConnection() As ADODB.Connection
    Dim oCon As New ADODB.Connection
    Dim sCnStr As String    

    If oCon.State = adStateOpen Then
        oCon.Close
    End If
    
    sCnStr = "Provider=SQLNCLI11;Server=dogt;" & _
        "Database=Production;Integrated Security=SSPI;"
    oCon.Open sCnStr
    
    If oCon.State = adStateOpen Then
        Set GetNewConnection = oCon
    End If
    
End Function

Код в форме:

Option Compare Database
Option Explicit
Private Sub Form_Load()
    Dim objConn As New ADODB.Connection
    Dim objRs As New ADODB.Recordset

    On Error GoTo ErrHandler:

    Set objConn = GetNewConnection

    With objRs
        Set .ActiveConnection = objConn
        .Source = "select * from ClassUnitMeas"
        .LockType = adLockOptimistic
        .CursorType = adOpenDynamic
        .CursorLocation = adUseClient
        .Open
    End With

    Set Me.Recordset = objRs

    objRs.Close
    objConn.Close
    Set objRs = Nothing
    Set objConn = Nothing

ErrHandler:
    If objRs.State = adStateOpen Then
        objRs.Close
    End If
    If objConn.State = adStateOpen Then
        objConn.Close
    End If

    Set objRs = Nothing
    Set objConn = Nothing

    If Err <> 0 Then
        MsgBox Err.Source & "-->" & _
        Err.Description, , "Error"
    End If
End Sub