Set rs = CurrentDb.OpenRecordset("9_Ergebnis_Hochspannungsprüfung", _
  dbOpenDynaset)
kriterium = "[SerienNr] = " & SerienNr
rs.FindFirst kriterium
If Not rs.NoMatch Then
HSPG_Ergebnis = rs!Ergebnis
Else
HSPG_Ergebnis = "kein Datensatz vorhanden"
End If
rs.Close

Dim sSQL As String
sSQL = "SELECT Ergebnis FROM 9_Ergebnis_Hochspannungsprüfung WHERE " & _
  "SerienNr LIKE '" & SerienNr & "'"
Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenDynaset)
If NOT rs.EOF And NOT rs.BOF Then
  HSPG_Ergebnis = rs!Ergebnis
Else
  HSPG_Ergebnis = "kein Datensatz vorhanden"
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de