Public Class fillDataGrid
    Public Sub fillDataGrid(ByVal dg As DataGrid, ByVal sql As String, ByVal _
      tablename As String)
        Try
            Dim da As OleDb.OleDbDataAdapter
            Dim ds As New DataSet
            Dim dt As New DataTable(tablename)
            da = New OleDb.OleDbDataAdapter(sql, connect)
            da.Fill(dt)
            ds.Tables.Add(dt)
            dg.DataSource = ds.Tables(tablename)
            CreateTableStyle(dg, dt.TableName)
        Catch ex As OleDb.OleDbException
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Function connect() As OleDb.OleDbConnection
        Dim db As String
        Dim conClsf As OleDb.OleDbConnection
        db = Application.StartupPath & "\db.mdb"
        conClsf = New OleDb.OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db)
        conClsf.Open()
        Return conClsf
    End Function
    Private Sub CreateTableStyle(ByVal dg As DataGrid, ByVal tableName As _
      String)
        Dim tableStyle As DataGridTableStyle = New DataGridTableStyle
        Dim column1 As New DataGridTextBoxColumn
        Dim column2 As New DataGridTextBoxColumn
        Dim column3 As New DataGridTextBoxColumn
        tableStyle.MappingName = tableName
        column1.MappingName = "Spalte1"
        column2.MappingName = "Spalte2"
        column3.MappingName = "Spalte3"
        column1.Width = 100
        column2.Width = 100
        column3.Width = 100
        column1.HeaderText = column1.MappingName
        column2.HeaderText = column2.MappingName
        column3.HeaderText = column3.MappingName
        tableStyle.GridColumnStyles.Add(column2) ' Hier  ist die Anordnung 
        tableStyle.GridColumnStyles.Add(column1)
        tableStyle.GridColumnStyles.Add(column3)
        dg.TableStyles.Add(tableStyle)
    End Sub
End Class

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        Dim dg As New DataGrid
        Dim fg As New fillDataGrid
        dg.Size = Me.Size
        Me.Controls.Add(dg)
        fg.fillDataGrid(dg, "SELECT Spalte1,Spalte2,Spalte3 FROM Test", "users")
    End Sub