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