База данных Excel VBA для SQL

Я только начал изучать взаимодействие с базой данных SQL через Excel VBA, и я начал с базового кода подключения из MSDN:

Sub GetDataFromADO() 'Declare variables' Set objMyConn = New ADODB.Connection Set objMyRecordset = New ADODB.Recordset Dim strSQL As String 'Open Connection' objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=fatcoin;User ID=root;Password=root;" objMyConn.Open 'Set and Excecute SQL Command' strSQL = "select * from productlist" 'Open Recordset' Set objMyRecordset.ActiveConnection = objMyConn objMyRecordset.Open strSQL 'Copy Data to Excel' ActiveSheet.Range("A1").CopyFromRecordset (objMyRecordset) End Sub 

Проблема, с которой я сталкиваюсь, пока у меня есть экземпляр SQL, запущенный на моей машине, на порт 3306, доступ к которому я могу получить, например, HeidiSQL, каждый раз, когда я запускаю этот код, появляется сообщение об ошибке:

[DBNETLIB] [ConnectionOpen (Connect ()).] SQL Server не существует или доступ запрещен

• Чтение из Excel в SQL - неправильный тип столбца
• Ограничения SQL запросов Microsoft в Excel
• Назначить переменную года для псевдонима столбца для листа excel
• Excel VBA: Формулы, не работающие с CopyFromRecordset, только при вставке вручную
• Свалка Excel занимает много времени

Я также попытался добавить порт:

  objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost,3306;Initial Catalog=fatcoin;User ID=root;Password=root;" 

И другие подобные вещи. Я не вижу причин, по которым он не должен работать, но я не играл с этим вообще. Я пробовал искать другие темы безрезультатно.

Есть идеи? Я работаю с Excel 2010 на 64-разрядной машине, используя MySQL 5.7. Я должен упомянуть, что вышеупомянутая кодировка вводится в раздел «Module1» VBAProject в Excel. благодаря

 objMyConn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=localhost;Initial Catalog=fatcoin"