Esattamente come dice Xegallo, scusa se non l'ho messo ma dr
lo devi dichiarare così :
codice:
  Dim Dr As new OleDbDataReader
Ho fatto un copia incolla da un mio programma è non ho eliminato tutte le cose inutili tipo Dim strID As String e ConsideraIndexChanged = False non servono alla lettura dei dati, per quanto riguarda dispose non serve aggiungere altro alla spiegazione di Xegallo