在EXCEL上用VB连接SQL后 EXCEL不出现数据库中的数据

Sub 创建()
Set conn = CreateObject("adodb.connection")

conn.Open "driver=sql server;server=pz01;database=IQCSIP;uid=iqc;pwd=Iqcsip2020"
If conn.State = 1 Then

Dim str_n As String

str_n = "select MAX(报告号) from BLBG where 日期 = '" & ActiveSheet.Cells(15, 2) & " '"

ActiveSheet.Cells(15, 3).CopyFromRecordset conn.Execute(str_n)

End If
conn.Close
Set conn = Nothing

End Sub

想要取一个当天的数据库中最大的报告号 日期是从EXCEL中取得 求出的值放在日期下面 求个高手帮我看看哪里有问题

Sub 创建()
Set conn = CreateObject("adodb.connection")
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=iqc;password=Iqcsip2020;Initial Catalog=IQCSIP;Data Source=pz01;"
conn.Open
If conn.State = 1 Then

Dim str_n As String

str_n = "select MAX(报告号) from BLBG where 日期 = '" & ActiveSheet.Cells(15, 2) & " '"

ActiveSheet.Cells(15, 3).CopyFromRecordset conn.Execute(str_n)

End If
conn.Close
Set conn = Nothing

End Sub

亲测可用，Data Source注意，如果改了实例名称的话要加进去