Dim sServer As String
    Dim sUserName As String
    Dim sPassword As String
    Dim sDBName As String
    Dim sConn As String
 
    ' Server name
    sServer = "localhost"
 
    ' Benutzerdaten
    sUserName = "Benutzer"
    sPassword = "Passwort"
 
    ' Datenbank-Name
    sDBName = "Datenbank"
 
    sConn = "Provider=MSDASQL;DSN=mysql;Driver=MySQL;Server=" & sServer & _
      ";Database=" & sDBName
 
   Set cnADO = New ADODB.Connection
 
   cnADO.Open sConn, sUserName, sPassword

Dim setKunden As ADODB.Recordset
Dim sqlKunden As String
 
Set setKunden = New ADODB.Recordset
 
sqlKunden = "SELECT * FROM kunden ORDER BY k_name"
On Error Resume Next
setKunden.Close
setKunden.Open sqlKunden, cnADO, adOpenKeyset, adLockPessimistic
On Error GoTo 0

Sub Kundendaten_anzeigen()
 
txtKundenNr.Text = setKunden("id_kunden").Value
If setKunden("k_anrede").Value = "Herr" Then
    cmbk_anrede.ListIndex = 1
Else
    cmbk_anrede.ListIndex = 0
End If
cmbK_Name.Text = setKunden("k_name").Value
txtK_Strasse.Text = setKunden("k_strasse").Value
txtK_PLZ.Text = setKunden("k_plz").Value
txtK_Ort.Text = setKunden("k_ort").Value
txtK_Telefon.Text = setKunden("k_telefon").Value
txtK_Telefax.Text = setKunden("k_telefax").Value
txtK_email.Text = setKunden("k_email").Value
txtK_Geburtsdatum.Text = setKunden("k_geburtsdatum").Value
txtK_Bemerkungen.Text = setKunden("k_bemerkung").Value
 
End Sub

    Select Case Index
        Case 1
            setKunden.MovePrevious 'Fehlermeldung Laufzeitfehler 3219, Der 
            ' Vorgang ist in diesem Zusammenhang nicht zulässig
            Kundenfelder_leeren
            Kundendaten_anzeigen
    End Select