有没有TrueDBGrid连接数据库的样例代码？

This is my code using TDBGrid7Private Sub Form_Load()
    Dim i As Integer
    Screen.MousePointer = vbHourglass
    Me.Visible = False
    
    Adodc1.ConnectionString = cn.ConnectionString
    Adodc1.CommandType = adCmdTable
    Adodc1.RecordSource = TableName
    Adodc1.CursorLocation = adUseClient
    Adodc1.CursorType = adOpenDynamic
    
    Adodc1.Refresh
    Screen.MousePointer = vbDefault
    
    For i = 0 To grdSelect.Columns.Count - 1
        grdSelect.Columns(i).HeadForeColor = vbWhite
        grdSelect.Columns(i).HeadBackColor = &H0&
    Next i
    
    'Set colors and marquee style for the grid
    grdSelect.BackColor = &HC0C0C0
    grdSelect.HighlightRowStyle.BackColor = &H808080
    grdSelect.HighlightRowStyle.ForeColor = &HFFFFFF
      
    grdSelect.MarqueeStyle = 4
      
    'Turn RecordSelectors on
    grdSelect.Splits(0).RecordSelectors = True
    Me.Visible = True
End Sub