Relationer mellem tabeller

Jeg har 2 tabeller som at jeg har har oprettet en relation imellem

En kunde tabel og en afvisnings tabel
Jeg har forbundet disse med mellem Kunde Id som er at finde i begge tabeller..

I afvisnings tabellen er der flg.
Kunde id
Afvisnings kode (som er en dropdownbox med faste værdier)
Beskrivelse: som er et notat felt.

Jeg har så lavet en listebox hvorpå jeg ønsker en msgbox når jeg dobbeltklikker…
Alt virker superfint med det første.. indtil at skal have afvisnings kode og beskrivelse indført i nedenstå-ende kode…

Nogen der kan hjælpe mig med hvad gør jeg kan gøre.


Private Sub lstAfviste_DblClick(Cancel As Integer)
Dim rs As Object
Set rs = Me.Recordset.Clone

rs.FindFirst "[Kunde id] = " & Str(Nz(Me![lstAfviste], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
MsgBox [Kunde Navn] & vbNewLine & "PND ID:" & [PND ID] & vbNewLine & "er afvist hos produktion med flg årsag." – Her skal jeg så angive afvisningskode samt beskrivelse-
End Sub