请问如何将数据仓库中的客户、员工、供货商等表格信息显示出来

Question

我利用了SQL自带的数据库Northwind建立了数据仓库，现在要利用VB中的DataGrid或FlexGrid将其中的表格信息显示出来，请问具体代码如何，下面是其中一部分代码：
With MSFlexGrid1
    .Cols = objCellset.Axes(0).Positions.Count + objCellset.Axes(1).DimensionCount
    .Rows = objCellset.Axes(1).Positions.Count + objCellset.Axes(0).DimensionCount
    .FixedCols = objCellset.Axes(1).DimensionCount
    .FixedRows = objCellset.Axes(0).DimensionCount
    
    For lngColumnCounter = 0 To objCellset.Axes(0).DimensionCount - 1
        For lngRowCounter = 0 To objCellset.Axes(1).Positions.Count - 1
            .Col = lngColumnCounter
            .Row = lngRowCounter + .FixedRows
            .Text = objCellset.Axes(1).Positions.Item(lngRowCounter).
Members(lngColumnCounter).Caption
            .ColWidth(lngColumnCounter) = 2000
            .CellAlignment = flexAlignCenterCenter
        Next
    Next
    ……………. 
    ……………. 
     For lngRowCounter = 0 To objCellset.Axes(1).Positions.Count - 1
        .Col = lngColumnCounter + .FixedCols
        .Row = lngRowCounter + .FixedRows
        If IsNull(objCellset.Item(lngColumnCounter, lngRowCounter).Value) Then
            .Text = 0
        Else
            .Text = objCellset.Item(lngColumnCounter, lngRowCounter).FormattedValue
            If InStr(.Text, ".") > 0 Then
                .Text = Left(.Text, InStr(.Text, ".") + 2)
            End If
            If InStr(.Text, "-") > 0 Then
                .CellForeColor = &HFF&
            End If
        End If
希望高手相助，谢谢。