cnn.Open()
Dim Reader As SqlDataReader
Reader = cmd.ExecuteReader()
Dim RecordCount As Integer = 0
Dim Records As String
Records = ""
Dim moreResult As var = True
While morResult
While Reader.Read()
Records += Reader(i) & " - "
RecordCount += 1
End While
moreResult = Reader.NextResult
End While
prueba asi, nose si estara bueno
revisa esto para convertir codigo de c# a vb
http://www.carlosag.net/Tools/CodeTranslator/