Concerne vba access

Bonjour,
j'ai un code vba access et je suis entrain de vouloir faire une operation avec <>, mais ça ne marche pas.
Est ce que je peux ecrire cette instruction?
...
Dim Rst_Effectif As DAO.Recordset
Dim oSelect As Excel.Range
Set oWSht = oWkb.ActiveSheet
Set oSelect = oWSht.Cells(1, 1).currentRegion
Set Rst_Effectif = oDB.OpenRecordset("EFFECTIF")


if Rst_Effectif.Seek <> oSelect.Cells(i, 1) then
....
end if

Il me signale l'erreur sur l'instruction if......