Problema con el BOF o EOF

[Renegado]

Private Sub Form_Load()
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "monitor2.mdb"
cn.Open
rs.Open "select * from monitor", cn, adOpenKeyset, adLockOptimistic
on error goto Error
rs.MoveFirst
on error goto 0
refrescar
desabilitar
exit sub
Error:
end sub


En Ultimo caso controla los Errores para que no te salga el error
El valor de BOF o EOF es True...........