Private Sub Rsvsventas_GotFocus()
'
'Sub-Canal de Venta
'
On Error GoTo No_Encontrado
If Len(Rsvsventas.Text) <> 0 Then
   SubCanal = Rsvsventas.Text
End If
se llena el ComboBox Rsvsventas con los datos de la tabla Agencias, segn
el canal escogido en el ComboBox Rsvcventas
dbAgencias.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbAgencias.RecordsetType = 1
dbAgencias.RecordSource = "Select Agenciaident FROM Agencias WHERE Agenciacat=" & Chr(34) & Rsvcventas.Text & Chr(34) & " ORDER BY Agenciaident"
dbAgencias.Refresh
Rsvsventas.Clear
dbAgencias.Recordset.MoveFirst
   Do While Not dbAgencias.Recordset.EOF
     Rsvsventas.AddItem dbAgencias.Recordset.Fields("Agenciaident").Value
     dbAgencias.Recordset.MoveNext
   Loop
   GoTo Terminar
Si no existe algn subcanal para el canal seleccionado en el ComboBox
Rsvcentas se pasa el enfoque a dicho Combo
No_Encontrado:
resp = MsgBox("No existe sub-canal de venta...", vbCritical, "Sub-Canal de venta...")
Rsvcventas.SetFocus
Terminar:
Rsvsventas.Text = SubCanal
End Sub
