Fra tekstbokse til liste

Dette spørgsmål er nok mest henvendt til thomasjepsen og terry...
Jeg har en formular med 8 tekstfelter, som jeg gerne vil have "omdannet" til en liste i stedet for........Jeg kan sagtens indsætte en liste baseret på den ønskede tabel, det er der ingen problemer i.........men det søgefelt jeg har på formularen, kan jeg ikke rigtig få "koblet på".....nogen ideer?
(forventer ikke et færdigt, kørende produkt, bare et par hints til hvordan det kan gøres)

Her er hele koden fra formularen:
(den gode programmeringsskik er gået lidt fløjten... :( )

Option Compare Database

Sub Form_Current()
On Error GoTo Form_Current_Err

    'If ChildFormIsOpen() Then FilterChildForm

Form_Current_Exit:
    Exit Sub

Form_Current_Err:
    MsgBox Error$
    Resume Form_Current_Exit

End Sub


Private Sub Form_Load()
txtSøgeord = ""
txtSøgeord.Value = ""
End Sub

Private Sub Form_Open(Cancel As Integer)
Me.Filter = "KOEN = 'K'"
txtSøgeord = ""
txtSøgeord.SetFocus
End Sub

Private Sub knpLogfiler_Click()
    DoCmd.OpenForm "Logfiler"

End Sub

Private Sub knpSøg_Click()
  Me.Filter = "PNR Like '*" & Me!txtSøgeord & "*' OR FORNVN Like '*" & Me!txtSøgeord & "*' OR EFTERNVN Like '*" & Me!txtSøgeord & "*'"
  Me.FilterOn = True
  Me.txtSøgeord.SetFocus
If Me.RecordsetClone.RecordCount = 0 Then
  Me.FilterOn = False
  MsgBox "Der blev ikke fundet nogle patienter.", vbInformation
  Me.txtSøgeord.SetFocus
End If
End Sub
Private Sub knpVisAlle_Click()
  Me.FilterOn = False
  Me.txtSøgeord.SetFocus
End Sub

Sub SkiftKæde_Click()
On Error GoTo SkiftKæde_Click_Err
        OpenChildForm
        FilterChildForm
SkiftKæde_Click_Exit:
    Exit Sub

SkiftKæde_Click_Err:
    MsgBox Error$
    Resume SkiftKæde_Click_Exit

End Sub
Private Sub FilterChildForm()

    If Me.NewRecord Then
        Forms![Screening].CPR.DefaultValue = """" & Me![PNR] & """"
        Forms![Screening].DataEntry = True
    Else
        Forms![Screening].CPR.DefaultValue = """" & Me![PNR] & """"
        Forms![Screening].Filter = "[CPR] = " & """" & Me![PNR] & """"
        Forms![Screening].FilterOn = True
    End If

End Sub
Private Sub OpenChildForm()

    DoCmd.OpenForm "Screening"
End Sub
Private Sub CloseChildForm()

    DoCmd.Close acForm, "Screening"
End Sub
Private Function ChildFormIsOpen()

    ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Screening") And acObjStateOpen) <> False

End Function
Private Sub Kommandoknap67_Click()
On Error GoTo Err_Kommandoknap67_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Kommandoknap67_Click:
    Exit Sub

Err_Kommandoknap67_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap67_Click
   
End Sub

Private Sub Kommandoknap72_Click()
On Error GoTo Err_Kommandoknap72_Click


    Screen.PreviousControl.SetFocus
    DoCmd.FindNext

Exit_Kommandoknap72_Click:
    Exit Sub

Err_Kommandoknap72_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap72_Click
   
End Sub