Private Sub Form_Load()
Dim dbName As String
Dim num_records As Integer
Dim SiguienteConsecutivo As Integer
    dbName = frmMain.Ap_Path & frmMain.dbName
    Set db = New ADODB.Connection
    db.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & dbName
    Set rcds = New ADODB.Recordset
Inhabilita el botn Generar Factura
    cmdGenerarFactura.Enabled = False
    casillaTodo.Enabled = False
    
    RsvUsuario.Text = frmLogin.LoginUser_ID
     WindowState = vbMaximized
     Llena el combobox Agencia, con los valores de los nombre de las mismas
dbAgencias.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbAgencias.RecordsetType = 1
dbAgencias.RecordSource = "Select Agenciaident FROM Agencias ORDER BY Agenciaident"
dbAgencias.Refresh
dbAgencias.Recordset.MoveFirst
   Do While Not dbAgencias.Recordset.EOF
     ComboAgencia.AddItem dbAgencias.Recordset.Fields("Agenciaident").Value
     dbAgencias.Recordset.MoveNext
   Loop
        
    ComboAgencia.ListIndex = Me.ComboAgencia.ItemData(0)
   Encuentra cual es el siguiente numero de factura a generar
     rcds.Open "select max([Numero]) as [UltimoConsecutivo] from [Maestro Facturas] where [Maestro Facturas].Cancelada = 0", db
        SiguienteConsecutivo = rcds![UltimoConsecutivo] + 1 ' get the next number ID
    rcds.Close
 Establece el numero de factura a generar   
    ComboFactura = SiguienteConsecutivo
Establece la fecha de emisin de la factura
    txtFechaFactura = Date
    
dbFacturas.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbFacturas.RecordsetType = 1
dbFacturas.RecordSource = "Select Numero FROM [Maestro Facturas]"
dbFacturas.Refresh
dbFacturas.Recordset.MoveFirst
Llena el combobox Factura con los valores de todas las facturas ya generadas
Do While Not dbFacturas.Recordset.EOF
     ComboFactura.AddItem dbFacturas.Recordset.Fields("Numero").Value
     dbFacturas.Recordset.MoveNext
   Loop
Set gDefaultDatabase = dbFacturas.Database
    
End Sub
