'####NEU------------------------------------------------------------------------
Dim rs As New ADODB.Recordset
Set rs = Cn.Execute("select * FROM PROD_DEFINITION where PD_NUM = '" & Suchwert _
  & "'")
 
If Not rs.EOF Then
    Print #F, Suchwert; Tab(25); "="; Tab; Suchwert
Else
    Print #F, Suchwert; Tab(25); "="; Tab; "?" & "  muß geprüft werden"
End If
'####NEU------------------------------------------------------------------------

VG

Dirk