找不到可安装的ISAM

lengyu112

各位高手，在执行程序中报错“找不到可安装的ISAM”,请问，这个问题怎么解决，麻烦给位高手给解决一下。


Public Sub 查找数据()
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim n As LongLong
    Dim SQL As String
    Dim wbName As String
    Dim ws As Worksheet
    wbName = ThisWorkbook.FullName
    Set ws = Worksheets("查询结果")
    ws.Cells.Clear
    Set cnn = New ADODB.Connection
    With cnn
        .Provider = "microsoft.ace.oledb.12.0"
        .ConnectionString = "Extended Properties=Execl 12.0;" & "Data Source=" & wbName
        .Open
    End With
    Set rs = New ADODB.Recordset
   
   
End Sub


由于运行到.open出现找不到可安装的ISAM，后面的代码还没有写完