VBA ODBC 驱动程序管理器 未发现数据源名称并且未指定默认驱动程序 Mysql

Sub connect_mysql()
    Dim strconnt As String
    strconnt = ""
    Set connt = New ADODB.Connection
    Dim rs As Object
    Set rs = New ADODB.Recordset
    Dim sevip, db, user, pwd As String
   
    sevip = "127.0.0.1"
    db = "test"
    user = "root"
    pwd = ""
   
    strconnt = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & sevip & ";Database=" & db & ";Uid=" & user & ";pwd=" & pwd & ";Stmt=set names GBK"
    connt.ConnectionString = strconnt
    connt.Open
   
End Sub

调试出现如题的错误！

解决方法：

              1.  到