solo me trae un mensaje cuando deberia ser varios en msgbox

[ramirezmario7]

hola
Lo que veo es que estas llevando los mensajes a la variable Records.
pero lo que pasa es que tines esta instruccion

While Reader.Read()

Dim i As Integer = 0
For i = 0 To Reader.FieldCount - 1
Records = Reader(i) & " - "

Next
RecordCount += 1
End While

prueba cambiandola por esta

Dim i As Integer = 0
While Reader.Read()

Records = Reader(i) & " - "
i += i+1

Next
RecordCount += 1
End While

mira bien la instruccion a ver si te ayuda, yo programo en C# pero puede que te de una idea con eso.

me imagino que el Next es del for, si es asi quitalo de la instruccion