I want to know how I can convert this DOA code:

Code:
    Case CMD_ADDRCD, CMD_EDITRCD, CMD_DELRCD
      FindCrit = "ArtikelID>=" & GetParmInString(gsFormParm, 2)
     datPrimaryRS.Recordset.FindFirst (FindCrit)
      If (datPrimaryRS.Recordset.RecordCount <> 0) And _
         datPrimaryRS.Recordset.NoMatch Then
        datPrimaryRS.Recordset.MoveFirst
      End If
I though it would be something like this, it is just that NoMatch is not accepted:

Code:
    Case CMD_ADDRCD, CMD_EDITRCD, CMD_DELRCD
      FindCrit = "ArtikelID>=" & GetParmInString(gsFormParm, 2)
      rs.Find (FindCrit)
      If (rs.RecordCount <> 0) And _
         rs.NoMatch Then
        rs.MoveFirst
      End If

The WiseGuy