Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
          System.EventArgs) Handles Button1.Click
 
        ' Spalte in Access DB hinzufügen
        Dim cn As System.Data.OleDb.OleDbConnection = New OleDb.OleDbConnection( _
          My.Settings.SprachenVerbindungsText)
        cn.Open()
        Dim com As OleDb.OleDbCommand = New OleDb.OleDbCommand("ALTER TABLE spr" & _
          "ADD " & Me.txtADDCOLUMN.Text & " STRING", cn)
        com.ExecuteNonQuery()
        cn.Close()
 
        ' Spalte im DataTable hinzufügen
        Me.SprachenDataSet.Tables("spr").Columns.Add(Me.txtADDCOLUMN.Text)
 
        ' DataGridView aktuallisieren
        Me.DataGridView1.DataSource = New BindingSource( _
          frmMain.SprachenDataSet.Tables("spr"), Nothing)
 
        End Sub
 
 
 
 
        Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As _
          System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
 
        Me.Validate()
        Me.SprBindingSource.EndEdit()
        Me.SprTableAdapter.Update(Me.SprachenDataSet)
 
        End Sub

fg viperbone