求助：如果利用vbs实现MSFlexGrid控件的赋值

给你一个例子，可以参考：
在界面上添加一MSFlexGrid1控件,命名为MSFlexGrid1
dim MSFlexGrid1
set MSFlexGrid1=ScreenItems("MSFlexGrid1")
Dim str2 As String
str2 = "字段一|字段二"
MSFlexGrid1.AllowUserResizing = 1
MSFlexGrid1.FixedRows = 1
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.FormatString = str2
MSFlexGrid1.ColWidth(0) = 1600
MSFlexGrid1.ColWidth(1) = 2300
MSFlexGrid1.Rows = 1
MSFlexGrid1.Cols = 2
Dim cnn As String
   cnn = "provider=WinCCOLEDBProvider.1;catalog=CC_test_09_07_14_14_54_22R;data source=计算机名\WinCC"
   Set cc1 = CreateObject("adodb.connection")
       cc1.ConnectionString = cnn
       cc1.CursorLocation = 3
       cc1.Open
   Dim rst As Object
   Set rst = CreateObject("adodb.recordset")
   Dim ssql As String
       ssql = "Tag:R,''archive_test\archive_test1'',''" & "2009-8-19 10:00:00.000'',''" & "2009-8-19 10:59:59.999''"
       rst.Open ssql, cc1
    If rst.RecordCount = 0 Then
       MsgBox "查无结果"
    Else
      rst.MoveFirst
      Do While Not rst.EOF
         MSFlexGrid1.AddItem (rst.Fields(1).Value & vbTab & rst.Fields(2).Value)
         rst.MoveNext
       Loop
       cc1.Close
   Set cc1 = Nothing
   Set rst = Nothing
   set MSFlexGrid1=nothing