'1.1 Make connection string for ADODB
sPro = "Provider=WinCCOLEDBProvider.1;"
sDsn = "Catalog=CC_OpConPac_04_10_01_10_36_36R;"
sSer = "Data Source=.\WinCC"
sCon = sPro + sDsn + sSer 
 
'1.2 Define command text in sSql (relative time)
sSql = "TAG:R,'ArTags\Tag_1','0000-00-00 00:10:00.000','0000-00-00" & _
  "00:00:00.000'" 
MsgBox "Open with:" & vbCr & sCon & vbCr & sSql & vbCr 
 
' 2.1 Make connection
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = sCon
conn.CursorLocation = 3
conn.Open 
 
' 2.2 Use command text for query
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")
oCom.CommandType = 1
Set oCom.ActiveConnection = conn
oCom.CommandText = sSql 
 
' 2.3 Fill the recordset
Set oRs = oCom.Execute
m = oRs.Fields.Count
nRec = NMAX

oRs.MoveFirst 
n = 0
Do While (Not oRs.EOF And n < nRec)
   'Daten irgendwo hin schreiben
oRs.MoveNext
Loop