oRecordset.Open "Select XYZ_FirmenID from XYZ where " & Krit, oCon, _
   adOpenDynamic, adLockOptimistic
   While not oRecordset.Eof then 
    With oRecordset
        .MoveFirst
        If Not IsNull(oRecordset.Fields("XYZ_FirmenID").Value) Then
            Text1.text = oRecordset.Fields("XYZ_FirmenID").Value
        End If
        oRecordset.MoveNext
    End With
    Wend

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)