need help with VB script & Xml...

have 3 tbls.
tblComp(PK CompId(int 4), compName, dateCreat(datetime 8)--no null)

tblContact [PK contId(int 4), Name, MemoCount(int 4), dateEnter(datetime 8)--no null]

tblMemo[pk memoId (int 4), {FK} contId(int 4), {FK} compId (int 4), memo (varchar 100)]


need to write VB Script program to retrieve comp, contact, and memo and bring them together as an XML document using the FOR XML clause of the SELECT command
thnks
mark..