Me.TableStyles.Clear()
 
                    Dim ts As cDataGridTableStyle
                    ts = New cDataGridTableStyle(False)
                    ts.MappingName = dt.TableName
 
                    Me.TableStyles.Add(ts)
 
                                            cst = New DataGridTextBoxColumn
                                            cst.HeaderText = col.ColumnName
                                            cst.MappingName = col.ColumnName
                                            cst.NullText = ""
                                            cst.Width = 150
                                            Me.TableStyles( _
                                              0).GridColumnStyles.Add(cst)