In realtà potresti interrogare una tabella, farti restituire un cursor.
Poi cicli il cursor(che conterrà il tuo recordset) ad ogni ciclo scrivi in un file i campi che ti interessano.
esempio veloce
Sub SelectQuery
Dim Cursor1 As Cursor
Cursor1 = SQL1.ExecQuery("SELECT ID,Nome,Peso FROM Persona")
For i = 0 To Cursor1.RowCount - 1
Cursor1.Position = i
file.write(Cursor1.GetInt("ID"))
next
Cursor1.Close
End Sub