VBA、ODBCを使ってMariaDBに接続できない

ODBCを使い、MariaDBのテーブル値をエクセルに出力したい。
ODBCデータソースからはつながります。

Function testMysql()

Dim cn As Object ' ADOコネクション Dim rs As Object ' ADOレコードセット Dim r As Range Dim i As Long ' ADOコネクションを作成 Set cn = CreateObject("ADODB.Connection") ' 接続 cn.Open _ "DRIVER={MariaDB ODBC 3.1 Driver};" & _ "SERVER=127.0.0.1;" & _ "DATABASE=Table;" & _ "UID=root;" & _ "PWD=pass;" ' SQLの実行 Set rs = cn.Execute("SELECT * FROM Table_A") ' 出力開始セル Set r = Range("A1") Do Until rs.EOF ' レコード数だけループ For i = 0 To rs.Fields.Count - 1 ' フィールド数だけループ r.Offset(0, i).Value = rs.Fields(i) ' セルへ出力 Next Set r = r.Offset(1, 0) ' 出力セルを一行下へ rs.MoveNext ' 読取レコードも次の行へ Loop ' 解放 rs.Close cn.Close Set rs = Nothing Set cn = Nothing

End Function

エラー：
実行時エラー'-2147467259(80004005)':
[ma-3.1.17]Can't connect to server on '127.0.0.1'(10061)