Module Module1
  Public Sub MySub()
    Dim BookQuery As Books = New Books()

    BookQuery.Query()
    While BookQuery.Fetch()
      'Do something with data by accessing the properties within 
      'the Books object
    End While

  End Sub

End Module