Using conn As New OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Datenbankpfad & _
          "\DB.mdb;")
            Using oCommand As New OleDbCommand
 
                oCommand.Connection = conn
                oCommand.CommandText = "DELETE FROM Grundschema WHERE id=@1"
                oCommand.Parameters.AddWithValue("@1", oid)
 
                Try
                    conn.Open()
                    oCommand.ExecuteNonQuery()
                    conn.Close()
                    MsgBox("Dieses Grundschema wurde aus der Datenbank" & _
                      "entfernt.", MsgBoxStyle.Information)
                Catch myerror As Exception
                    MsgBox("Fehler beim Löschen der Datenbank: " & _
                      myerror.Message)
                Finally
                    If conn.State = ConnectionState.Open Then
                        conn.Close()
                    End If
                End Try
 
            End Using
        End Using

Hänk

(Wer früh aufsteht hat mehr vom Tag)