Dim Ebenen As New ADODB.Recordset
    Dim Ab_Ebenen As String
 
' 1. Datenbank Ebenen öffnen
' ===================================
    Set cn_Ebenen = New ADODB.Connection
    cn_Ebenen.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
        & "SERVER=" & Server & ";" _
        & "DATABASE=weniconcard;" _
        & "UID=root;" _
        & "Password=;" _
        & "OPTION=16384"
    cn_Ebenen.CursorLocation = adUseClient
    cn_Ebenen.Open
 
' 2. Datensatz schreiben
' ====================================
 
    Ebenen.Open "SELECT * FROM ebenen", cn_Ebenen, adOpenDynamic, _
      adLockOptimistic
    nr = Ebenen.RecordCount + 1
 
    With Ebenen
        .AddNew
        Ebenen.Fields(0).Value = id_nr
        Ebenen.Fields(1).Value = E_Name       ' <== Hier erscheit beschrieber 
        ' Fehler
        Ebenen.Fields(2).Value = Belong_Nr
        Ebenen.Fields(3).Value = verantw.Text
        .Update
        .Close
    End With
    cn_Ebenen.Close