关于Excel取得Access表的数据问题

xnc_0014

大家好：
    我在Excel中，用VBA写了一小段代码，希望从Access表中取得数据。代码如下：
Public Sub ImportData()
    Dim mydata As String, mytable As String, SQL As String
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    ActiveSheet.Cells.Clear
    mydata = ThisWorkbook.Path & "\成绩管理系统.mdb"
    mytable = "成绩单"

    Set cnn = New ADODB.Connection
    With cnn
        .Provider = "microsoft.jet.oledb.4.0"
        .Open mydata
    End With
    SQL = "select * from " & mytable
    Set rs = New ADODB.Recordset
    rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic

    For j = 1 To rs.Fields.Count
        Cells(1, j) = rs.Fields(j - 1).Name
    Next j

    Range("A2").CopyFromRecordset rs
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing

End Sub

    可是在运行时，在.Open mydata处提示错误，如附件图示，我可以肯定文件名没有错，路经更不会错，因为Excel和Access处于同一文件夹下。这是为什么呀？谢谢。

marco

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\用户表.mdb;Persist Security Info=False这一整句是数据库连接字符串

xnc_0014

我用以下语句也试过了：
.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\成绩管理系统.mdb;Persist Security Info=False"
和我原来的语句是一样的错误。
其实真要一直是错的倒也不奇怪，但无论我原来用的语句，还是现在用的语句，都曾经成功过，后来又失败了，同一台计算机啊，却是第一次运行成功，第二次运行失败，这就奇怪了，为什么啊？