Private Sub cmdSuchen_Click() 
Dim Name As String 
Dim Fund as Boolean
Name = Trim(txtTitel.Text) 
DataEnvironment1.rsArchiv.MoveFirst 
Fund=false
Do While not DataEnvironment1.rsArchiv.eof 
If Name = DataEnvironment1.rsArchiv.Fields!Titel Then 
     frmManager.Aktualisieren 
     Fund=true
    Exit Do 
End If 
DataEnvironment1.rsArchiv.MoveNext 
Loop 
If Fund=false then 
  MsgBox "Der Film """ & Name & """ konnte nicht gefunden werden", vbCritical, _
    "Achtung" 
  Name = "" 
  txtTitel.SetFocus 
else
  Unload Me
End If 
End Sub

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)