Visual Basic - 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