大神们，帮忙解决VBA运行时错误3706的问题

陈坚平0219

没换电脑之前，功能一切正常，换完后功能就这样了

Sub DisplayInfo()
Application.ScreenUpdating = False

Range("付款信息区").ClearContents

Set conn = CreateObject("ADODB.Connection")
     
  Set rs = CreateObject("ADODB.recordset")
     conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;HDR=Yes;imex=2';data source=" & ThisWorkbook.FullName

Sql = "select 日期,批复金额,发票金额,付款金额,计提金额,类别,凭证号,备注 from [" & FKJTMX & "$A:Z] WHERE 合同编号='" & Range("合同编号").Value & "' order by 日期 desc"



Range("付款数据").CopyFromRecordset conn.Execute(Sql)
Application.ScreenUpdating = True

Range("合同编号").Select
End Sub

陈坚平0219

provider=microsoft.ace.oledb.12.0
已解决