对象不支持命名参数

我正在编写VBA代码来从SQL Server写入数据，连接没有问题，但是当我debugginglogging集中的代码时，系统会抛出

运行时错误446对象不支持命名参数

这是我的代码

`Sub CopyfromDatabase() Dim conn As ADODB.Connection Dim RecordConn As ADODB.Connection Set conn = New ADODB.Connection Set RecordConn = New ADODB.Connection conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=PH03\Historian;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=OCG;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=HistorianStorage" conn.Open 'On Error GoTo CloseConnection With RecordConn .ActiveConnection = conn .Source = "connectiontable" .LockType = adLockReadOnly .CursorType = adforwardonly .Open End With On Error GoTo CloseRecord Worksheets.Add Range("A2").CopyFromRecordset RecordConn CloseRecord: RecordConn.Close 'CloseConnection: conn.Close End Sub` 

帮我！！

Answer 1

 Dim RecordConn As ADODB.Connection Set RecordConn = New ADODB.Connection 

应该

 Dim RecordConn As ADODB.Recordset Set RecordConn = New ADODB.Recordset