Private Sub ListView1_DblClick()
  Dim sKey As String
 
  With ListView1
    If Not .SelectedItem Is Nothing Then
      sKey = Mid$(.SelectedItem.Key, 2)
      Rs.Bookmark = sKey
      txtName.Text = Rs("Name")
      txtStrasse.Text = Rs("Strasse")
      ...
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de