用vb语言连接数据库不成功，脚本如下。

Dim con

con = "Provider=SQLOLEDB; Data Source=WH-GJEIR8TILD4\WINCC; Initial Catalog=CC_HMI_4KVJ_25_06_24_14_35_09R; User ID=sa; Password=123456"

Dim strsql

strsql="SELECT * FROM Archive where [ValueName]"

Dim conn1

Set conn1=CreateObject("ADODB.Connection")

conn1.ConnectionString=con

conn1.CursorLocation=3

conn1.Open

MsgBox "数据库连接成功"

Dim rst

Set rst = CreateObject("ADODB.Recordset")

Dim com1

Set com1= CreateObject("ADODB.Command")

With com1

.CommandType=1

.ActiveConnection=conn1

.CommandText=strsql

End With

MsgBox "1"

Set rst=com1.Execute

Dim num,checkbox

num=rst.RecordCount

SetTag "checkbox1", num

Set checkbox=ScreenItems("checkbox_1")

checkbox.CountVisibleItems=rst.RecordCount

MsgBox "2"

Dim i

For i=1 To checkbox.CountVisibleItems

checkbox.Index =i

checkbox.Text =rst.fields(0).value

rst.movenext

Next

MsgBox "3"

Set rst=Nothing

conn1.close

Set conn1=Nothing

MsgBox "4"

下面是wincc诊断结果

============Microsoft OLE DB Provider for SQL Server============

Application : 

Picture : 画面_1.pdl_Events

Function : Sub X6309X94AEX005F2_OnPressLeft(ByVal item, ByVal flags, ByVal x, ByVal y)

Line : 25

Error : [DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问。

============Microsoft OLE DB Provider for SQL Server============

麻烦大佬帮我看一下脚本有问题吗？如果不是脚本的问题那是数据库哪里没有配置好吗？