Dovrebbe essere l'incontrario:
codice:
      
      Dim objCommand As New OleDbCommand(strSelect, objConnect)

      Dim objDataReader As OleDbDataReader

      objDataReader = objCommand.ExecuteReader()

presente = false
      Do While objDataReader.Read()
presente=true
      Loop
Ciao