vba + word + access

med udgangspunkt hvordan får jeg fat i flere poster fra access til en listbox i word efter valgfridt index ?

modificeret eks:

Rem Kundenr = InputBox("indtast kundenr")
rem ny selection med ny sortering fdato er sekundærnøgle
rem med dubletter

fdato = InputBox("indtast Fdato")

Set objConn = New ADODB.Connection
Set objRs = New ADODB.Recordset
   
strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\kunder.MDb"
objConn.Open strConnString
   
   
strSQL = "SELECT fodt, Fnavn, Enavn, Adresse FROM kunder WHERE fodt = " & fdato
objRs.Open strSQL, objConn
osv osv