Intente esto, debe agregar cada campo en el conjunto de registros a la cadena de entrada. Si solo desea un valor específico de cada registro, puede hacer esto
input = input & rs.Fields.Item("FIeld_Name")
En lugar de recorrer cada campo.
connectionString = "DRIVER={Microsoft ODBC for Oracle};SERVER=oracle_server;User Id=user;Password=password;"
Set connection = CreateObject("ADODB.Connection")
connection.Open connectionString
Set rs = connection.Execute("select * from dual")
input = ""
Do Until rs.EOF
for i = 0 To rs.Fields.Count - 1
input = input & rs.Fields.Item(i) & "|"
Next
input = input & VBNewLine
rs.MoveNext
Loop
MsgBox input
Set connection = Nothing
Set rs = Nothing
