斑竹
对不起，我昨天重新装了一遍WinCC V7.0,然后使用同样的脚本
Sub OnClick(ByVal Item)

Dim conn3

Set conn3 = CreateObject("ADODB.Connection")

conn3.ConnectionString = "Data Source=CC_test_08_01_31_21_20_48R;User ID='';Password='';"

conn3.Open

conn3.Execute "CREATE TABLE WinCC_Table(Switch INT, Batch VARCHAR(10), A1 INT, A2 INT, Current_Motor INT, EntryDate DATETIME)"

conn3.Close

End Sub
然后修改了一下运行数据库的名称，已经可以和数据库连上了
我怀疑是我的SQL Server2005 HF2前面装的有问题
现在问题已经解决，另外，Data Source=CC_test_08_01_31_21_20_48R是可以直接用的，这个名称可以通过直接打开SQL Server 2005 management studio进行查看
感谢大家的帮助，谢谢斑竹的热心帮助
:)