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

我用vb写的程序，代码如下：
Sub stationupdate()
    Dim sUserR As String
    Dim sPassR As String
    Dim strsql As String
    Dim i As Integer
    sUserR = "yjzx"
    sPassR = "yjzx"
    Dim cn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set cn = New ADODB.Connection
    cn.ConnectionString = "PROVIDER=MSDASQL;DSN=infolib;UID=mta_com_usr;pwd=mta_com_usr2k;"
    cn.Open
    
    strsql = "select * from tabstationparameter"
    Set rst = cn.Execute(strsql)
    Open App.Path & "\newautostation.txt" For Output As #1
    Open App.Path & "\newstationnumber.txt" For Output As #2
    Do While Not rst.EOF
        Print #1, rst.Fields("StationNum"), rst.Fields("StationAddress"), rst.Fields("StationName")
        i = i + 1
        rst.MoveNext
    Loop
    Print #2, i
    Close (1)
    Close (2)
End Sub运行出错，提示“[microsoft][ODBC驱动程序管理]未发现数据源名称并且未指定默认驱动器”。调试行指向cn.Open。
我已经在控制面板，管理工具添加了数据库，并且在本机用acces能打开mta数据库了，是哪里出错了呢？各位大虾帮帮忙啊！