Visual Basic - EXPORT UNA TABLA EN FORMATO SEPARADO POR COMO

SALUDOS, ME GUSTARIA QUE ME AYUDARAN A EXPORTAR EL CONTENIDO DE UNA TABLA A UNA FORMATO SEPARADO POR COMAS TEXTO.CSV PARA LUEGO LEVANTARLA EN OTRA APLICACION.

GRACIAS

este ejemplo graba un recordset en un cvs.
tomando el archivo desde un common dialog. Suerte

Open cdlg.FileName For Output As #1
Do Until rRec.EOF
Linea = \"\"
Linea = Linea & \"\"\"\" & Trim(rRec.Fields(1) & \"\") & \"\"\",\" \'Planta
Linea = Linea & \"\"\"\" & Trim(DateValue(rRec.Fields(2)) & \"\") & \" \" & TimeValue(rRec.Fields(3)) & \"\"\",\" \'Fecha
Linea = Linea & \"\"\"\" & Trim(rRec.Fields(5) & \"\") & \"\"\",\" \'Maquina
Linea = Linea & \"\"\"\" & Trim(rRec.Fields(6) & \"\") & \"\"\",\" \'Tipo
Linea = Linea & \"\"\"\" & IIf(rRec.Fields(7) & \"\" = \"S\", \"SI\", \"NO\") & \"\"\",\" \'Baja Velocidad
Linea = Linea & \"\"\"\" & Trim(rRec.Fields(9) & \"\") & \"\"\",\" \'Baja Velocidad
Linea = Linea & \"\"\"\" & Trim(rRec.Fields(10) & \"\") & \"\"\",\" \'Grupo arbol perd
If rRec.Fields(7) & \"\" <> \"S\" Then
Linea = Linea & \"\"\"\" & Trim(rRec.Fields(11) & \"\") & \"\"\"\" \'duracion
Else
Linea = Linea & \"\"\"\" %2