Private Sub Grid1_RowChange(ByVal nRow As Long)
    ' Kontakte des Kunden anzeigen
  With Grid2
    .Caption = "Ansprechpartner für Kontakt: " & Grid1.Text(nRow, "ktkName")
    Set .Recordset = CurrentDb.OpenRecordset("SELECT ktk_ID, Anrede, Name," & _
      "Vorname, Tel, Fax, Mobil, Email FROM tblAnsprechpartner WHERE ktk_ID =" & _
      "'" & Grid1.Text(nRow, "ktk_ID") & "' ORDER BY Name")
    .Refresh
  End With
End Sub