Che errore ti restituisce?
Intanto prova a modificare questa riga

Dim ObjReader as new OleDbReader

con

Dim ObjReader as new OleDbDataReader