SQL - Exportar a TXT desde SQL Server por VB

Hola colega, tengo una gran inquietud ya que tengo el siguiente codigo que realizo desde mi sistema para luego de haber realizado una consulta en una base de datos en access me la exporta a un archivo txt:

CD.Filter = "Text File(*.txt)|*.txt|All File (*.*)|*.*"
CD.DialogTitle = "Guardar Archivo de Texto"
CD.Flags = cdlOFNHideReadOnly
CD.ShowSave
s = CD.FileName
If s = "" Then Exit Sub
If Dir(s) <> "" Then
If MsgBox("El Archivo ya existe. Desea borrarlo y crear uno nuevo?" & vbCrLf & _
"Continuar ??? ", vbYesNo + vbQuestion, "confirm") = vbNo Then
Exit Sub
End If
End If
Set RstA = DATA.OpenRecordset("SELECT nacionalidad,cedula1,priape,prinom,fecnac FROM CEOBJ WHERE [lote] between #" & MKBfec1.Text & "# AND #" & MKBfec2.Text & "# ORDER BY CEDULA1 ASC")
If RstA.EOF = False Then 'hay registros
RstA.MoveLast
RstA.MoveFirst
NumeroArchivo = FreeFile
Open s For Output Shared As #NumeroArchivo
While RstA.EOF = False
Print #NumeroArchivo, Trim("" & RstA("Nacionalidad")); Spc(1 - Len("" & RstA("Nacionalidad"))); _
Trim(";" & RstA("Cedula1")); Spc(8 - Len("" & RstA("Cedula1"))); _
Trim(";" & RstA("Priape")); Spc(16 - Len("" & RstA("Priape"))); _
Trim(";" & RstA("Prinom")); Spc(15 - Len("" & RstA("Prinom"))); _
Trim(";" & RstA("Fecnac")); Spc(8 - Len("" & RstA("Fecnac")))
RstA.MoveNext
Wend
Close #NumeroArchivo ' Cierra el archivo.
varmsg2 = MsgBox("Se ha creado el fichero perfectamente", vbExclamation, "AVISO")
RetVaL = Shell("notepad.exe " & s, vbMaximizedFocus)
................................

Como puedo hacer ya que la data se encuentra actualmente es en SQL Server, agradeceria su ayuda para ver como puedo adaptar este codigo para poder realizar esa exportación, gracias de antemano y espero sea util para otros colegas de igual forma

Si es SQL Server, substituye tu programa por BCP.EXE:

http://www.devarticles.com/c/a/SQL-Server/An-Introduction-To-The-Bulk-Copy-Utility/1/

Guao de verdad nunca he trabajado con el BCP.exe, pero y el mismo código no me funcionaria pero haciendole las conexiones ado respectivas para el sql? otro colega me comentaba que si pudiera funcionar, que crees tu? y si no fuese asi tendrias algun ejemplo elaborado desde visual basic el cual me puedas facilitar?? gracias de antemano

Perdona que insista, ¿porque hacerlo desde VB?, si lo que quieres es que tu CLIENTE ejecute el BCP.exe para hacer la exportación de datos a un archivo texto, bueno, entonces crea un STORE PROCEDURE que te ejecute el BCP.

En la pagina que te mande, lleva varios ejemplos