Private Sub RsvAgente_GotFocus()
'
'Vendedores  Combo Box
'
On Error Resume Next
If Len(RsvAgente.Text) <> 0 Then
   Agente = RsvAgente.Text
End If
 Limpia y llena el ComboBox RsvAgente con los valores de los agentes
segn la agencia seleccionada en el ComboBox anterior Rsvsventas
RsvAgente.Clear
dbVendedores.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbVendedores.RecordsetType = 1
dbVendedores.RecordSource = "Select * FROM Vendedor WHERE SCanal=" & Chr(34) & Trim(Rsvsventas.Text) & Chr(34) & " ORDER BY Vname"
dbVendedores.Refresh
'Valida si existen Vendedores
If dbVendedores.Recordset.RecordCount = 0 Then
   MsgBox "No existen Agentes de Ventas para este Subcanal:" & Chr(13) & Rsvsventas.Text, vbCritical, "Reservaciones..."
   Rsvsventas.Text = ""
   Rsvsventas.SetFocus
   Exit Sub
End If
dbVendedores.Recordset.MoveFirst
   Do While Not dbVendedores.Recordset.EOF
     RsvAgente.AddItem dbVendedores.Recordset.Fields("Vname").Value
     dbVendedores.Recordset.MoveNext
   Loop
RsvAgente.Text = Agente
End Sub
