Mostrar lo especifico

Carlos, otra pregunta yo puedo seleccionar lo que quiero que se muestre en la datagrid, tengo varios datos de productos pero yo quiero que se muestre lo importante, ya que aparte de mostrar tengo problema con lo ancho de la columnas, así están mis códigos:
Private Sub Text9_Change()
consul.CursorLocation = adUseClient
consul.Open "select * from producto where product like '" + Trim(Text9.Text) + "%'", FACT, adOpenDynamic, adLockReadOnly
Set datagrid2.DataSource = consul
Set consul = Nothing
End Sub
Private Sub DataGrid2_Click()
    datagrid2.Col = 0             ' Columna 1
    Text10 = datagrid2.Text
    datagrid2.Col = 1             ' Columna 2
    Text18 = datagrid2.Text
    datagrid2.Col = 2             ' Columna 2
    Text11 = datagrid2.Text
    datagrid2.Col = 3             ' Columna 3
    Text12 = datagrid2.Text
    datagrid2.Col = 4             ' Columna 4
    Text13 = datagrid2.Text
    datagrid2.Col = 5             ' Columna 5
    Text14 = datagrid2.Text
    datagrid2.Col = 6            ' Columna 6
    Text15 = datagrid2.Text
    Text16.Enabled = True
    Text16.SetFocus
    Text16 = ""
    Text5 = ""
End Sub