Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles ToolStripButton1.Click
        ' Verbindung
        Dim cn As System.Data.OleDb.OleDbConnection = New OleDb.OleDbConnection( _
          My.Settings.TierDatabaseConnectionString1)
        Dim com As OleDb.OleDbCommand = New OleDb.OleDbCommand("ALTER TABLE", _
        cn)
        Dim dc As New DataColumn("Test")
 
    End Sub

fg viperbone