Dim Ebenen As New ADODB.Recordset
        Server = "192.168.0.1"
        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
        cn_Ebenen.Close