Imports System.Data.OleDb
Public Class frmfrm9
 
 
 
    Inherits System.Windows.Forms.Form
 
 
    Private Verbinder As String = "Provider= Microsoft.Jet.OLEDB.4.0;  Data" & _
      "Source=Test.mdb;"
    Private auflistung As String = "SELECT * FROM Test123"
 
    Private odc As OleDbConnection
    Private oda As OleDbDataAdapter
    Private odb As OleDbCommandBuilder
    Private dat As DataTable
    Private bmb As BindingManagerBase
 
    Private Sub frmTyp3_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        odc = New OleDbConnection(Verbinder)
        oda = New OleDbDataAdapter(auflistung, odc)
        odb = New OleDbCommandBuilder(oda)
        dat = New DataTable("Test123")
 
        odc.Open()
        oda.Fill(dat)
        odc.Close()
        bmb = Me.BindingContext(dat)
 
        dag1.DataSource = dat
 
        'tabelle(formatieren)
        Dim ts1 As New DataGridTableStyle
        ts1.MappingName = "Test123"
        ts1.AlternatingBackColor = System.Drawing.Color.LightGray
        ts1.AllowSorting = False
        ts1.GridLineColor = System.Drawing.Color.Green
        ts1.ReadOnly = True
 
        Dim dc1 As New DataGridTextBoxColumn
        dc1.MappingName = "Flaechenname"
        dc1.HeaderText = "sdfgsg"
        dc1.Width = 100
        dc1.NullText = ""
 
        Dim dc2 As New DataGridTextBoxColumn
        dc2.MappingName = "Groesse"
        dc2.HeaderText = "sdfgsdfg"
        dc2.Width = 200
        dc2.NullText = ""
 
 
        ts1.GridColumnStyles.Add(dc1)
        ts1.GridColumnStyles.Add(dc2)
 
 
 
        dag1.TableStyle.Add(ts1)
 
 
    End Sub
 
End Class