Visual Basic - DBGRID a txt

¿Como puedo exportar los datos de un dbgrid a un fichero txt?.
El dbgrid está relleno con una tabla con 20 campos y necesito exportarlos tabulados, donde la primera fila sea el nombre de los campos ya que luego se van a importar a access
gracias

Checa este codigo:

Dim Columnas, Renglones As Integer
Dim Contenido As String
Dim I, Y, X, Z As Integer

Columnas = MSFlexGrid1.Cols
Renglones = MSFlexGrid1.Rows

Y = -1
I = 0

Open "C:\Mis documentos\Demos VB\ReporteTXT\ReporteTxt.Txt" For Output As #1
Do Until Y = Renglones - 1
MSFlexGrid1.Row = Y + 1
I = 0
Do Until I = Columnas - 1
MSFlexGrid1.Col = I + 1
Contenido = MSFlexGrid1.Text
Write #1, Contenido, Tab;
I = I + 1
Loop
Write #1,
Y = Y + 1
If Y = Renglones Then
Exit Sub
End If
Loop
Close #1

Lo que hace es recorrer el DBGrid y verifica el contenido de la celda, luego lo guarda en una variable y lo pone en el archivo TXT. Desde luego a lo mejor no es exactamente lo que quieres pero quisa te pueda servir para darte una idea y mejorar este codigo.

Si tienes alguna duda, tienes mi mail.

Saludos!!!

P.D.: Intenta tambien con el metodo Print, en vez de Write....

Gracias, ahora tengo otro problemilla a ver si me puedes ayudar.
Hice lo que me indicaste con un MSFlexGrid y sale perfecto pero el problema es que necesito un control que me muestre los datos como uan tabla, es decir que pueda actualizar.
¿Puedo hacer lo mismo que me has indicado con un dbgrid?, no vero como contar las columnas y las filas..
Gracias

Creo que debes hacer algo así:
sub CrearFicheroTXT_click()
Open "NombreArchivo.txt" for output as #1
print #1 "Titulos y otros que desees"
For i = 1 to DbGrid.rows -1
Campo1 = DbGrid.Textmatrix(linea,Columna) y así sucesivamente
next i
close #1
Espero que te sirva, si requieres más detalles te envío un ejemplo más completo

Ups, se me olvido decirte que "linea" equivale a "i" del ciclo For...Next

MUCHISIMAS GRACIAS, ME HABEIS ARREGLADO EL PROBLEMA