Invece di dichiarare:

Dim drPersona as DataReader


dichiara così

Dim drPersona as OleDbDataReader