Sub qqq()
             'В конструкторе создал несколько стилей
             'D1,D2 - DataGridTextBoxColumn для 1и2 колонок
             'DB1, DB2 - DataGridBoolColumn для 1и2 колонок
             'styl - DataGridTableStyle - имя стиля созданого в мастере 
             'все стили колонок в него включены
             'думаю включать их не стоит, но всеже!:)
        styl.GridColumnStyles.Add(D1)
        styl.GridColumnStyles.Add(D2)
        styl.GridColumnStyles.Add(DB1)
        styl.GridColumnStyles.Add(DB2)
        DataGrid1.TableStyles.Add(styl)

        Dim selstar As String
        selstar = "SELECT nm, id FROM av.star where id <35"
        Dim com1 As New OracleCommand
        Dim DataAD As New OracleDataAdapter
        Dim MyDS As New DataSet
        com1.CommandText = marsh1
        com1.Connection = oraconect
        DataAD.SelectCommand = com1
        DataAD.Fill(MyDS)
        DataGrid1.TableStyles.Clear()
        DataGrid1.DataSource = MyDS.Tables( 0 )
        DataGrid1.Refresh()
    End Sub