Visual Basic - Exportar a Archivo Plano

Tengo una aplicacion de visual basic 6.0, donde realizo unas consultas en SQL y que se muestran en un datagrid; necesito saber cual es el codigo que me permita exportar la consulta a un archivo plano.(*.txt)

COMO ME LO ENSEÑARON TE LE ENSEÑO Y FUNCIONA DE MARAVILLA

Private Sub Command1_Click()
Dim xobjeto As Object
Dim xarchivo As Object
Dim MiBase As Database
Dim rcdregis As Recordset
Set MiBase = OpenDatabase("c:\datos\MOVIPRO.MDB")
Set rcdregis = MiBase.OpenRecordset("PESO")

Set xobjeto = CreateObject("Scripting.FileSystemObject")
Set xarchivo = xobjeto.CreateTextFile("c:\ordenes.txt", True)
rcdregis.MoveFirst
Do While Not rcdregis.EOF

xarchivo.Write (Trim(rcdregis!documento)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdregis!proveedor)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdregis!fecha)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdregis!peso)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdregis!tara)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdregis!descripcion)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdregis!costo)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdregis!codigo)): xarchivo.Write (",")
xarchivo.Writeline (Trim(rcdregis!Status))
rcdregis.MoveNext
Loop
xarchivo.Close
End Sub

SUERTE