vba i 97

hvad er der galt i denne... har også oprøvet med IS Null og = Null uden held.

Resultatet skal blive at feltet KOMBINATION updateres til "20" såfremt alle felter er tomme.

Public Function Opdater()
   
    Dim db As Database
    Dim rs As Recordset

  Set db = CurrentDb
  Set rs = db.OpenRecordset("1", dbOpenDynaset)
           
Do

If rs![Billede OK].Value = "" And rs![Omdøbes til].Value = "" And rs![billede ok efter bearbejdning].Value = "" And rs![Ny kurve].Value = "" And rs![slettes].Value = "" And rs![slettes dpi].Value = "" And rs![slettes str].Value = "" And rs![slettes uskarp].Value = "" And rs![Bør udskiftes].Value = "" And rs![under min men ok].Value = "" And rs![Erstattet].Value = "" And rs![Type].Value = "" And rs![bemærkning].Value = "" Then
    rs.Edit
      rs!kombination.Value = "20"
      rs.update
        Else
End If



rs.MoveNext

Loop Until rs.EOF
   
rs.Close
Set rs = Nothing

End Function