为什么VB6 TDBGRID绑定老是没有数据呢？

Dim ado_reset As New ADODB.Recordset

Public Sub Form_Load()[local]1[/local]
    Dim fos As New FileSystemObject
    Dim xmlDoc As New DOMDocument
    Dim xmlName As IXMLDOMElement
    Dim xmlAge As IXMLDOMElement
    Dim xmlSex As IXMLDOMElement
    Dim xmlInfo As IXMLDOMElement
    Dim xmlRoot As IXMLDOMNode
    Dim xmlSelectInfo As IXMLDOMNodeList


                     
    InitGrid
   
    CreateData
     
    ado_reset.AddNew
    ado_reset.Fields("number").Value = "1"
    ado_reset.Fields("age").Value = 16
    ado_reset.Fields("name").Value = "1"
    ado_reset.Fields("sex").Value = 1
    ado_reset.Update

    Set adodata.Recordset = ado_reset
   'gridInfo.Recordset = ado_reset
      
   
End Sub
Private Sub InitGrid()

With gridInfo
   
     Set .DataSource = adodata
    .SelectedBackColor = g_clrSelectedBack
    .SelectedForeColor = g_clrSelectedFore
End With

End Sub
'创建手动数据集
Private Sub CreateData()
    Set ado_reset = New ADODB.Recordset
    ado_reset.CursorType = adOpenDynamiRecordsetc
    ado_reset.LockType = adLockOptimistic
    ado_reset.CursorLocation = adUseClient
    ado_reset.Fields.Append "number", adChar, 2
    ado_reset.Fields.Append "age", adChar, 4
    ado_reset.Fields.Append "name", adVarChar, 6
    ado_reset.Fields.Append "sex", adVarChar, 4
    ado_reset.Open
End Sub