Private Sub ListView1_DblClick()
  With ListView1
    If Not .SelectedItem = Nothing Then
      <font color=green>' Lesezeichen ermitteln</font>
      Dim strBookmark As String 
      strBookmark = Mid(.SelectedItem.Key, 2)
 
      <font color=gren>' Datensatz anhand des Lesezeichens im Recordset 
      ' "suchen"</font>
      Data1.Recordset.Bookmark = strBookmark
 
      GintNewISN = Data1.Recordset!isn
      kadiaShowForm GfrcForms(Data1.Recordset!maske)
    End If
  End With
End Sub