变量记录归档读取到Excel 第十行CreateObject总是说子程序和函数为定义 请高手指点

Sub get_wincc_data()
    '--Get Database DSN name----------------------------------
    Set DSNName = CreateObject("CCHMIRuntime.HMIRuntime")
    sDsn = DSNName.Tags("@DatasourceNameRT").Read
    '--build connection string--------------------------------
    sPro = "Provider = WinCCOLEDBProvider.1;"
    sDsn = "Catalog=" & sDsn & ";"
    sSer = "Data Source=J1YOORGD4LDJVTJ.\WinCC"
    sCon = sPro & sDsn & sSer
    Set conn = CreateObiect("ADODB.Command")
    conn.ConnectionString = sCon
    conn.CursorLocation = 3
    conn.Open
    Set oRs = CreateObject("ADOB.Recordset")
    Set oCom = CreateObject("ADOB.Command")
    oCom.CommandType = 1
    Set oCom.ActiveConnection = conn
    '查询起止时间
    sStart = Year(DTPicker1.Value) & "-" & Month(DTPicker1.Value) & "-" & Day(DTPicker1.Value) & "00:00:00"
    sStop = Year(DTPicker1.Value) & "-" & Month(DTPicker1.Value) & "-" & Day(DTPicker1.Value) & "23:00:00"
    '转为UTC时间
    sStart = DataAdd("h", -8, CDate(sStart))
    sStop = DataAdd("h", -8, CDate(sStop))
    '读取1#泵电流
    sSql = "Tag:R,('ProcessValueArchive\1#分站1#泵_A相电流'),'" & sStart & "','" & sStop & "'order by datetime"
    oCom.CommandText = sSql
    Set oRs = oCom.Execute
    If (oRs.EOF) Then
      oRs.Close
    Else
      oRs.MoveFirst
      i = 0
      Do While Not oRs.EOF
      Sheet1.Cells(i + 4, 2) = oRs.Fields("RealValue").Value
      i = i + 1
      Loop
      oRs.Close
    End If
    Private Sub DTPicker1_Chanfe()
    get_wincc_data
End Sub

问题补充： 单改的第十行可以啦但是Dateadd那有报子程序和函数未定义