have this error:"Run-time error '3706'"

on windows 7 64bit、Excel 2010 64bit
have this error:"Run-time error '3706'"
my code:
Public Function AccessAdoConn(Optional dbname As String) As Object
    Dim AccessConn As Object
    Dim conStr As String
    Dim strProvider As String
        dbname = ThisWorkbook.Path
        dbname = IIf(Right(dbname, 1) = "\", dbname, dbname & "\") & "DB.mdb"
    strProvider = "Provider=Microsoft.Jet.OLEDB.4.0; "
    conStr = strProvider & "Data Source=" & dbname
    Set AccessConn = CreateObject("ADODB.Connection")
    AccessConn.ConnectionString = conStr
    AccessConn.Open
End Function

This thread is locked. You can vote as helpful, but you cannot reply or subscribe to this thread.

No results