eksporter data fra flere tabeller til outlook

Jeg har lavet en database hvor der er 2 tabeller. En tabel der registrerer firmanavne og data på disse samt en relateret tabel, som viser kontaktpersoner ved det pågældende firma. Et firma kan have flere kontaktpersoner... Jeg har lavet en form med firmadatene, hvor der er tilknyttet en subform med kontaktpersonerne.

Nu til mit problem. I subformen har jeg lavet en knap, som skal sende datene til ens kontaktpersoner i outlook. Det lykkedes fint. Nu vil jeg gerne have tilføjet eks. firmanavn til den enkelte kontaktperson - men disse data ligger jo i den anden tabel... Hvordan gør jeg det?

Min VBA tekst ser således ud:

Public Function StartOutLook()
        On Error GoTo StartOutLook_Error
        Dim spObj As Object, MyItem As Object
        Dim OlContact As ContactItem
     
        Set spObj = CreateObject("Outlook.Application")
        Set OlContact = spObj.CreateItem(olContactItem)
               
        With OlContact
         
            .FullName = Me.Contact_person
            .JobTitle = Me.Tittle
            .BusinessTelephoneNumber = Me.Direct_phone
            .MobileTelephoneNumber = Me.Direct_mobile_phome
            .Email1Address = Me.Direct_E_mail
           
            '.CompanyName =
            '.BusinessFaxNumber = Me.Combo21                 
            '.WebPage =
            '.BusinessAddressPostalCode =
            '.BusinessAddressState =
            '.BusinessAddressCity =
            '.BusinessAddressStreet =
            '.BusinessAddressCountry =                   
           
            .Display
          End With
 
                       
        ' Quit Microsoft Outlook.
          Set spObj = Nothing
          Exit Function

StartOutLook_Error:
        MsgBox "Error: " & Err & " " & Error
        Exit Function
      End Function


------------

På forhånd tak!