“工程”菜單(project)里邊選“部件”(我用的是英文版的VB，中文的好像是“部件”，要不就是“組件”)

在彈出的對(duì)話框里找到
Microsoft Hierarchical FlexGrid Control 6.0 (OLEDB)
選中，確定之后，在工具箱里就有表格控件了。

例程

Private Sub Command1_Click()
    Set Conn = New ADODB.Connection
    Set Rs = New ADODB.Recordset
    Conn.ConnectionString = "provider=msdaora;user id = hcs2000;password=lgwslgws;data source=HCS2000_192.168.100.200"
    Conn.Open
    Dim sql As String
    sql = "Select * from AA"
    Set Rs = Conn.Execute(sql)  '建立記錄集
    Combo1.Clear
    Combo2.Clear
    Dim i As Integer
    i = 1
    MSHFlexGrid1.Rows = 15 '設(shè)置行數(shù)
    MSHFlexGrid1.Cols = 5 '設(shè)置列數(shù)
    Do While Not Rs.EOF
        MSHFlexGrid1.Row = i '設(shè)置當(dāng)前行數(shù)
        MSHFlexGrid1.Col = 1 '設(shè)置當(dāng)前列數(shù)
        'k=MSHFlexGrid1.TextMatrix(10,10)
        MSHFlexGrid1.ColWidth(1) = 2000 '表格列寬
        MSHFlexGrid1.Text = Rs.Fields(0) '設(shè)置填充內(nèi)容
        MSHFlexGrid1.Col = 2
        MSHFlexGrid1.ColWidth(2) = 500 '表格列寬
        MSHFlexGrid1.Text = Rs.Fields(1)
        i = i + 1
        Rs.MoveNext
    Loop
    Conn.Close
End Sub