Dim myCMD22 As OleDbCommand = New OleDbCommand("SELECT CategoryID, CategoryName FROM Categories;" & _
"SELECT EmployeeID, LastName FROM Employees", cn)
Dim myReader22 As OleDbDataReader = myCMD22.ExecuteReader()
Dim fNextResult As Boolean = True
Do Until Not fNextResult
Console.WriteLine(vbTab & myReader22.GetName(0) & vbTab & myReader22.GetName(1))
Do While myReader22.Read()
Console.WriteLine(vbTab & myReader22.GetInt32(0) & vbTab & myReader22.GetString(1))
Loop
fNextResult = myReader22.NextResult()
Loop
myReader22.Close()