To tabeller i en listbox

hej,

jeg skal have listet indholdet af to Tabeller i en list box, har lavet:

List4.Clear
startcon
SQL = "select * from tbl_medie, tbl_film"
rs.Open SQL, con, adOpenDynamic
Do Until rs.EOF
List4.AddItem rs("navn")
List4.ItemData(List4.NewIndex) = rs("medieid")
List4.AddItem rs("titel")
List4.ItemData(List4.NewIndex) = rs("medie2id")
rs.MoveNext
Loop
slutcon

problemet er at jeg kan ikke bruge 2 x List4.ItemData(List4.NewIndex) men ved ikke hvad jeg skal bruge istedet.