Problemer med opdatering af felter i MySQL Database

HJÆLP !!!!

Jeg arbejder på et program til opdatering af MySQL felter, efter en søgning i databasen. Problemet er at jeg får en (Run-time error'-2147217864(80040e38)' Row cannot be located for updating. Some values may have been changed since it was last read.

Lidt kode:
----------
'Det der skal opdateres!!
Public Sub UpdateStatus(ServerIP As String)

frmMain.Adodc.Recordset.Update "status", "1"
frmMain.Adodc.Recordset.Update "ipweb", SvrIP
   
End Sub
-----------
'søge funktionen
Privat Sub CmdSearch_Click()
Dim strSearch as string

strSearch = InputBox("Indtast Abonnements Nr")

Do Until frmMain.txtAbonnementsnr.text = srtSearch
  frmMain.MySQL.Recordset.MoveNext
Loop