Public Sub ChangeNum()
  Dim con As ADODB.Connection, rec As ADODB.Recordset
  Dim sqlstr As String, datasource As String
  Set con = New ADODB.Connection: Set rec = New ADODB.Recordset
  datasource = "D:DropBoxTraderShareTraderNum.xlsx"
  Dim sconnect As String
   sconnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
            "Data Source=" & datasource & ";" & _
            "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
  con.Open sconnect
  sqlstr = "UPDATE [Sheet1$] SET [Number] = """ & gsvDocNum & """ WHERE [ID] = """ & svNumRng & """"
  rec.Open sqlstr, con ', adOpenUnspecified, adLockUnspecified 'adLockOptimistic , adOpenStatic, adLockReadOnly
  con.Close
  Set rec = Nothing: Set con = Nothing
End Sub