So I created a parent child ADO:
Private Sub Form_Load()
Dim oConn As ADODB.Connection
Dim oRS As ADODB.Recordset
Dim oRSChild As ADODB.Recordset
Set oConn = CreateObject("ADODB.Connection")
Set oRS = CreateObject("ADODB.Recordset")
oConn.Provider = "MSDataShape"
oConn.Open "Data Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=d:\Testen\CCRM.mdb;Persist Security Info=False"
oRS.Open "SHAPE {SELECT * FROM Overzichtenteamselectiedeel1 WHERE TeamId =
11} " _
& "APPEND ({SELECT * FROM Overzichtenteamselectiedeel2} " _
& "AS oRSMedewerkers " _
& "RELATE TeamId TO TeamId)", oConn
And now I want to connect it to a datareport. Everything I tried comes back
with errors. Does NE1 know how to do it?
Thanks!