Public Sub FetchResults(ByVal myConnection As MySqlConnection)
Dim cmd As MySqlCommand = New MySqlCommand("SELECT * FROM Test.Dept;SELECT * FROM Test.Emp")
cmd.FetchAll = True
cmd.Connection = myConnection
myConnection.Open()
Try
Dim reader As MySqlDataReader = cmd.ExecuteReader()
Dim cRes As Integer
For cRes = 0 To reader.ResultCount - 1
reader.CurrentResult = cRes
While reader.Read()
Dim i As Integer
For i = 0 To reader.FieldCount - 1
Console.Write(String.Concat(" ", reader(i)))
Next i
Console.WriteLine()
End While
Next cRes
Finally
myConnection.Close()
End Try
End Sub