Public Function IsValidRec(oRs As Recordset)
  ' Prüfen, ob sich der Datensatzzeiger auf einen
  ' gültigen Datensatz befindet
  Dim vTemp As Variant
  On Error Resume Next
  vTemp = oRs.Fields(0).Value
  If Err.Number = 3021 Then
    ' kein gültiger Datensatz!
    IsValidRec = False
  Else
    IsValidRec = True
  End If
  On Error GoTo 0
End Function

If IsValidRec(rs2) Then
  If Not IsNull(rs2.fields("Laufzeit").Value) Then
    m=rs2.fields("Laufzeit") 
    ...
  End If
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de