Private Sub xx()
    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.1 Abfrage ausgewähltes Element
' ===================================
    With Ebenen
        Ab_Ebenen = "SELECT * FROM ebenen WHERE lfd = " & Feld_Auswahl
        .Open Ab_Ebenen, cn_Ebenen
    End With
 
    Ebenen.Close
    cn_Ebenen.Close
 
End Sub