Private Sub Kd_daten_anzeigen_Click(Index As Integer)
    Dim kunde As recordset
    Dim sqlString As String
    Dim zbh As recordset
    Dim listString As String
    Dim A As Integer
    Dim i As Integer
    Call enable(False)
    If Not IsNumeric(Reservierungsverwaltung.Kdnr_txt.Text) Then
            MsgBox "Bitte eine gültige Kundennr eingeben!"
            Reservierungsverwaltung.Kdnr_txt.Text = ""
            Reservierungsverwaltung.Kdnr_txt.SetFocus
                Else
                    If Reservierungsverwaltung.Kdnr_txt.Text < 0 Or _
                      Reservierungsverwaltung.Kdnr_txt.Text > 32767 Then
                        MsgBox "Die Kundenr. ist ungültig!"
                        Reservierungsverwaltung.Kdnr_txt.Text = ""
                        Reservierungsverwaltung.Kdnr_txt.SetFocus
                            Else
                            sqlString = "select * from kunde where kdnr = " & _
                              Kdnr_txt.Text & " "
                            Call getDBData(sqlString, kunde)
                                If kunde.RecordCount = 0 Then
                                'nachfolgende MsgBox wird gar nicht angezeigt. 
                                ' Keine Chance...
                                    If MsgBox("Kein Kunde Nr." & Kdnr_txt.Text _
                                      & " vorhanden. Kunde per Name suchen?", _
                                      vbYesNo) = vbYes Then
                                        Kunde_suchen.Show
                                    End If
                                Else
                                Kd_name_txt.Text = kunde!Name
                                End If
                    End If
    End If
     ! Hier hackt das Programm mit der Selektierung ! 
    'Alle Reservierungen zu der selektierten Kd-nr anzeigen:
    '            Reservierungsverwaltung.Kdnr_txt = kunde!kdnr
    '            Reservierungsverwaltung.Kd_name_txt = kunde!Name
    '           sqlString = " select * from reservierung where kdnr=" & 
    ' kunde!kdnr
    '            kunde.Close
    '           Call getDBData(sqlString, reservierung)
    '            i = 0
    '            Reservierungsverwaltung.List2.Clear
    '            Do Until reservierung.EOF = True
    '                    listString = reservierung!rnr
    '                    listMap(i) = "" & reservierung!rnr
    '                    Reservierungsverwaltung.List2.AddItem (listString)
    '                    reservierung.MoveNext
    '                    i = i + 1
    '                    ReDim Preserve listMap(i)
    '            Loop
    '                If (reservierung.RecordCount > 0) Then
    '                    MsgBox "Reservierung gefunden !"
    '                    Else
    '                    MsgBox "schleife nicht durchlaufen"
    '                End If
      If DebugMode Then
                MsgBox "Kunde mit  Nr. " & Kdnr_txt.Text & " gefunden."
      End If
      kunde.Close
End Sub
 
 ! Das müsste eigentlich auch noch programmert werden. Hat jemand Ahnung, _
  wie? !
Private Sub Preisberechnung_Click(Index As Integer)
'Dim int preis as Integer
'    Call berechnePreis("recordsets der reservierungsdaten", Preis)
'    Preis.SetText ("" + Preis)
End Sub