"SELECT 0 AS IDPerso, 'Fremdleistung' AS Name " & _
  "FROM Personal " & _
  "UNION " & _
  "SELECT IDPerso, (Vorname + ' ' + Name) AS Name " & _
  "FROM Personal " & _
  "WHERE (Vorname + ' ' + Name) = '" & comMonteur.Text & "'"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Set adors = New ADODB.Recordset
 
With adors
 
 
              .ActiveConnection = FomWerkstatt.cnStam
              .Source = "SELECT 0 as IDPerso, 'Fremdleistung' as Vorname " & _
                        "From Personal " & _
                        "Where Vorname='" & comMonteur.Text & "'" & _
                        "UNION " & _
                        "SELECT IDPerso , Vorname + ' ' + Name " & _
                        "FROM Personal " & _
                        "Where Vorname + ' ' + Name='" & comMonteur.Text & "'"
              .CursorLocation = adUseClient
              .CursorType = adOpenKeyset
              .LockType = adLockOptimistic
              .Open
 
              If .EOF = True Then comMonteur.SetFocus
 
 
               If Not adors Is Nothing Then
                      adors.Close
                      Set adors = Nothing
               End If
 
End With