Private Sub RsvAgente_LostFocus()
'
'Valida Nombre del Agente de Ventas
'
Dim sAgenteCapturado As String

sAgenteCapturado = RsvAgente.Text
dbVendedores.Recordset.FindFirst "Vname='" & sAgenteCapturado & "'"
If dbVendedores.Recordset.Fields("Vname").Value <> sAgenteCapturado Then
   MsgBox "No existe ese Agente de Ventas...", vbCritical, "Agente de Ventas..."
   RsvAgente.Text = ""
   RsvAgente.SetFocus
   Exit Sub
End If
Se pasa el enfoque al botn Command3, que es el que se usa para guardar
la reservacin
   Command3.SetFocus
End Sub
