Werte einer Listbox in Unterformular

Hallo,

habe folgendes Problem:
habe ein Unterformular mit den Feldern (ArtikelID, Artikel, Seriennummer). Bei Click auf das Feld Artikel öffnet sich ein Suchformular (suche in mehreren Spalten), das bestimmte Werte für die 3 o.g. Felder vorschlägt. Nun möchte ich die Werte der Suche per Doppelclick übernehmen. Leider wird dabei immer nur der erste/oberste Datensatz des Unterformulars geändert, also egal von welcher Zeile des Unterformulars ich die Suche starte - es werden die Daten der Suche immer in den ersten Datensatz geschrieben.
Ich möchte aber, dass der Datensatz des Unterformulars geändert wird von dem aus ich gestartet bin.

Anbei ein Teil des Codes:

Option Compare Database
Option Explicit

Private Sub Befehl8_Click()
Me!dfSuche = „“
Me!sSuche = „“
DoCmd.Hourglass True
lbSuche.Requery
DoCmd.Hourglass False
Me!dfSuche.SetFocus
End Sub

Private Sub dfSuche_Change()
sSuche = dfSuche.Text
DoCmd.Hourglass True
lbSuche.Requery
DoCmd.Hourglass False
Me!dfSuche.SetFocus
End Sub

Private Sub Form_Open(Cancel As Integer)
Me!dfSuche.SetFocus
End Sub

Private Sub lbSuche_DblClick(Cancel As Integer)
Dim frmName As String
Dim Text As String

Text = Me.lbSuche.Value
Forms![ArtikelLine].[Artiel].Value = Text

End Sub

Wer kann mir helfen?
Wie kann ich im Code irgendwie hinterlegen, dass die in der Suche ausgewählten Daten in eine ganz bestimmte Zeile des Unterformulars geschrieben werden.

Viele Grüße
Peter