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