Dim objComm As New OleDb.OleDbCommand
                    objComm.Connection = New OleDb.OleDbConnection("dein" & _
                      "connection string")
                    With objComm
                        'die tabelle clonen mit neuen namen
                        .CommandText = "SELECT * INTO neueTabelle FROM" & _
                          "allteTabelle"
                        .Connection.Open()
                        .ExecuteNonQuery()
                        'die alte tabelle löschen
                        .CommandText = "DROP TABLE alteTabelle"
                        .ExecuteNonQuery()
                        .Connection.Close()
                    End With