Relation til Access

Et kort eksempel på det jeg har brug for:

with TabelA
  Text1 = !VareNr
  Text2 = !Varenavn
end with

Varenavn er et nr til relationstabellen, men jeg skal bruge Varenavnet fra relationstabellen.

sæt et dataobject på dit projekt.
Lav en knap eller lign. og skriv flg.:

Dim datDBsys As Database
Dim recSystem As Recordset
Dim strSQL As String


Set datDBsys = DBEngine.Workspaces(0).OpenDatabase(sti til databasen)
strSQL = \"SELECT * FROM tabelA INNER JOIN tabelB ON tabelA.varenr = tabelB.varenr\"

Set recSystem = datDBsys.OpenRecordset(strSQL)

msgbox recSystem(tabelA.field & tabelB.varenavn)

Det burde virke!

Virkede det ikke?

Hej larsen1
Tak for hjælpen
Det er helt klart din løsning jeg skal bruge, jeg har et lille problem, jeg får mismatch fejl i linien Set recSystem = datDBsys.open----
Ved du hvad det kan være.
Giv lige et svar under alle omstændigheder, så jeg kan aflevere pointene.

Du skal skrive stien til databasen sidst i linien. Har du gjort det?
ellers
sæt et dataobject på dit projekt. Har du gjort det?
ellers
Prøv at slå nogle forskellige data/ADO-components til....

Jeg brugte en forkert ADO komponent.