Vrftjkry

I have a connection string that uploads a range of cells to my sharepoint list. Today someone was unable to use this feature and received an error when running the macro. The error was Cannot Find Installable ISAM. The person is running Office 2013, I am using Office 365 / Excel 2016. Not sure if this is due to the connection string not being made for older versions of Office. I blocked off my company's name in my string. .Open is being highlighted for the error. Any help would be appreciated. Here is my code:

Public Sub update_SP()

Dim cnt As ADODB.Connection

Dim rst As ADODB.Recordset

Dim mySQL As String



Set cnt = New ADODB.Connection

Set rst = New ADODB.Recordset



mySQL = "SELECT * FROM [opsmangement]   WHERE [branch]= '" & Sheet18.Range("A10").Value & "'"



On Error GoTo errorhndlr



With cnt

    .ConnectionString = _

 "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=http://companyname.us.company-dns.com/sites/portvanregion/downtown/;LIST={51B3D896-995F-461F-BDB8-F8DB41128229};"

    .Open

End With



rst.Open mySQL, cnt, adOpenDynamic, adLockOptimistic

        rst.Fields("branch") = Sheet18.Range("A10").Value

        'rst.Fields("declined") = Sheet18.Range("A11").Value

        rst.Fields("cashbox exposures") = Sheet18.Range("A12").Value

        rst.Fields("exposures to date") = Sheet18.Range("A13").Value

        rst.Fields("exposures percentage") = Sheet18.Range("A14").Value

        rst.Fields("cashbox cashcounts") = Sheet18.Range("A15").Value

        rst.Fields("cashcounts to date") = Sheet18.Range("A16").Value

        rst.Fields("cashcounts percentage") = Sheet18.Range("A17").Value

        rst.Fields("coin machine test") = Sheet18.Range("A18").Value

        rst.Fields("negotiables") = Sheet18.Range("A19").Value

        rst.Fields("compliance") = Sheet18.Range("A20").Value

        rst.Fields("loan exceptions") = Sheet18.Range("A21").Value

        rst.Fields("cash tracker") = Sheet18.Range("A22").Value

        rst.Fields("ops grade") = Sheet18.Range("A23").Value

        rst.Fields("district") = Sheet18.Range("A9").Value



    'rst.Fields("Actual") = rst.Fields("Actual") + 100



rst.Update



If CBool(rst.State And adStateOpen) = True Then rst.Close

Set rst = Nothing

If CBool(cnt.State And adStateOpen) = True Then cnt.Close

Set cnt = Nothing

MsgBox "I have uploaded your new results"

Exit Sub

errorhndlr: MsgBox "I wasn't able to upload your numbers for you, I have created an email with your updated numbers that you can send"

emailtable

End Sub