運行時錯誤13類型不匹配

Question

我在嘗試為Excel VBA女士運行選擇字符串時收到自動化錯誤

代碼如下：

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strsql As String

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

Set cn = New ADODB.Connection

Application.ScreenUpdating = False

DBPath = "Path of Access DB HERE"
DBProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
dbparam = DBProvider & "data source =" & DBPath

a = Sheets(1).ComboBox2.Value

cn.Open dbparam
With rs
    .Open "Qry_WBT", cn, adOpenDynamic, adLockOptimistic, adCmdTable
    ***.Open "Select * From " & [Qry_WBT] & " WHERE " & "[WBT Name] = '" & a & "'", cn, adOpenKeyset, adLockOptimistic, adCmdTable***
    If rs.EOF = True Then
        MsgBox "No Data in selected field", vbOKOnly
        Exit Sub
    End If
End With

.open“選擇等等等等”部分中出現錯誤

Answer 1

克里斯是對的。 您不能兩次打開它。
這就是造成3705的原因。
而且我認為您不需要Qry_WBT的括號，因此可以嘗試一下：

Dim mysource As String
mysource = "Select * From Qry_WBT WHERE [WBT Name] = '" & a & "'"
With rs
    .Open mysource, cn, adOpenKeyset, adLockOptimistic, adCmdTable
    '~~> rest of the code
End With