Опитайте това, то трябва да добави всяко поле в набора от записи към входния низ. Ако искате само конкретна стойност от всеки запис, можете да направите това
input = input & rs.Fields.Item("FIeld_Name")
Вместо зацикляне на всяко поле.
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