Private Sub addColumn()
        Dim conn As New OleDb.OleDbConnection
        conn.ConnectionString = connString
 
        Try
            conn.Open()
 
            Dim sql1 As String = "ALTER TABLE Orders ADD COLUMN BottleName TEXT(" & _
              "40)"
            Dim cmd As New OleDb.OleDbCommand(sql1, conn)
            cmd.ExecuteNonQuery()
 
            Dim sql2 As String = "UPDATE Orders SET BottleName = ShipName"
            cmd.CommandText = sql2
            cmd.ExecuteNonQuery()
 
            Dim sql3 As String = "ALTER TABLE Orders DROP COLUMN ShipName"
            cmd.CommandText = sql3
            cmd.ExecuteNonQuery()
 
        Catch ex As Exception
            MsgBox("Oops! " & ex.ToString())
        Finally
            conn.Close()
        End Try
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist