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

Hola, tenés q usar uan conexion ADO, en varias consultas de este foro hay ejemplos del string de conexion de ADO y cómo abrir un recordset, buscalos y listo, si no lo encontrás, mandame un mail y te hago un ejemplo, pero es declarando variables de tipo ADODB.connection y ADODB.recordset

y lo demás te va a servir tal cual lo hiciste, solo cambia la forma de abrir la base y el recordset, lo demás te va a andar
suerte!