' Verbindung
        Dim cn As System.Data.OleDb.OleDbConnection = New OleDb.OleDbConnection( _
          My.Settings.TierDatabaseConnectionString)
        cn.Open()
        Dim com As OleDb.OleDbCommand = New OleDb.OleDbCommand("ALTER TABLE" & _
          "TierTabelle ADD neueSpalte INT", cn)
        cn.Close()

fg viperbone