Here is an example script that may do what you need.  It uses an adodb connection and resultset object, and the sql function fn_trace_gettable.

Dim adoConn

Set adoConn = CreateObject("ADODB.Connection")