请大神看看哪里有错，如果是因为项目复制过来的问题，应该怎么解决呢？重新安装数据库，还是用WINCC项目复制器重新复制呢？在WINCC工具里边没有找到项目复制器。

sPro = "Provider=WinCCOLEDBProvider.1;"

sDsn = "Catalog=CC_mm_WinC_11_09_02_11_26_33R;"
sSer = "Data Source=.\WinCC"
sCon = sPro + sDsn + sSer

Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = sCon
conn.CursorLocation = 3
conn.Open

If err.number<>0 Then
   MsgBox "打开连接错误！"
   End If
   err.clear

sSql = "TAG:R,'bm\Number_b','"+StrBtime+"','"+StrEtime+"'“

Set oRs = CreateObject("ADODB.Recordset")

Set oCom = CreateObject("ADODB.Command")
oCom.CommandType = 1
Set oCom.ActiveConnection = conn
oCom.CommandText = sSql
Set oRs = oCom.Execute

If GetConState(conn.State) = "adStateClosed" Then 
      MsgBox "数据库连接失败"

End If