下面是SP3的自动向导生成的范例程序，请参考：
Sub Change(ByVal Item)
Dim txtDateTimeFrom
Dim txtDateTimeTo
Set txtDateTimeFrom = ScreenItems("txtDateTimeFrom")
Set txtDateTimeTo = ScreenItems("txtDateTimeTo")
Dim strDateTimeFrom
Dim strDateTimeTo
Dim objDateTimeHelper
Set objDateTimeHelper = CreateObject("CCDataConnector.clsDateTimeHelper")
objDateTimeHelper.GetAbsoluteIntervalFromRelative CStr(txtDateTimeFrom.Text),CInt(-1),CStr(txtDateTimeTo.Text),strDateTimeFrom,strDateTimeTo
Set objDateTimeHelper = Nothing

Dim objTag
Set objTag = ScreenItems("cmbTag")
Dim Adodc1
Set Adodc1 = ScreenItems("Adodc1")
Adodc1.RecordSource="Tag:R,'" & objTag.Text & "','" & strDateTimeFrom & "','" & strDateTimeTo & "'"
Adodc1.Refresh
Dim objDataGrid1
Set objDataGrid1 = ScreenItems("DataGrid1")

objDataGrid1.Clear
objDataGrid1.FixedCols = 1
objDataGrid1.FixedRows = 1
objDataGrid1.ColHeader(0) = 0
objDataGrid1.AllowUserResizing = 1
objDataGrid1.Redraw = False
objDataGrid1.ColWidth(0) = 250
objDataGrid1.ColWidth(2) = 3075
objDataGrid1.ColWidth(3) = 2115
objDataGrid1.ColWidth(4) = 1365

Set objDataGrid1.DataSource = Adodc1.Recordset
objDataGrid1.Row=0
objDataGrid1.Col=1
objDataGrid1.Text="TagID"
objDataGrid1.Col=2
objDataGrid1.Text="Date/Time"
objDataGrid1.Col=3
objDataGrid1.Text="Value"
objDataGrid1.Col=4
objDataGrid1.Text="Quality code"
objDataGrid1.ColWidth(5)=0
objDataGrid1.Col=1
objDataGrid1.Row=1
objDataGrid1.Redraw = True


End Sub