Tente isso, ele deve adicionar cada campo no conjunto de registros à string de entrada. Se você quiser apenas um valor específico de cada registro, você pode fazer isso
input = input & rs.Fields.Item("FIeld_Name")
Em vez de fazer um loop em 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
