Public Sub RunSQL()
    Dim CON As New ADODB.Connection
    Dim err As ADODB.Error
    Dim addresDB, prodName, prodCategory, countType As Variant
    Dim prodRowNumber, prodPrice, prodCount As Variant
    
    addresDB = CStr(Sheets(2).Cells(5, 3).Value)
    zada4a = CStr(Sheets(2).Cells(4, 3).Value)
On Error GoTo ErrorSub
    CON.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & addresDB
    CON.Properties("Jet OLEDB:Database Password") = "123"
    CON.Open
    CON.Execute (zada4a)
    Sheets(2).Cells(11, 3).Value = "Все норм!  -  " & Now
    CON.Close
    Set CON = Nothing
    Exit Sub
ErrorSub:
    For Each err In CON.Errors
        MsgBox (err.Description & " Источник: " & err.Source)
    Next
    Set CON = Nothing
End Sub