strSQL = "SELECT * FROM tot_pagina,total_visite WHERE pagina ='" & pagina & "'"
...
...

Dim myreader As OleDbDataReader = Cmd.ExecuteReader()
Try
If myreader.Read Then
ok = "ok"
Else
conta = myreader.GetInt(1)
conta = conta + 1
End If
...
...

Ti ho modificato il frammento di codice
Non so cosa vuoi fare precisamente, ma ogni volta che vuoi ricavare il valore di un campo innanzitutto lo devi inserire nella SELECT poi devi ottenerlo utilizzando il metodo GetString o GetInt o gli altri a seconda di quale tipo hai utilizzato per definire il campo.
NB Il numero tra parentesi (1) indica l'indice del campo, dato che si parte da (0), (1) indica il campo tot_visite.

Ciao

Se ci sono problemi ripostami