Private Sub cmdPreliminar_Click()
Dim NumeroFactura As Integer
Dim strSelect As String
Dim Exportada As Boolean
Dim Cancelada As Boolean
    
     NumeroFactura = ComboFactura
Selecciona los campos Nmero de factura, Exportada, Cancelada de la tabla Maestro Facturas 
strSelect = "SELECT [Maestro Facturas].Numero, [Maestro Facturas].Exportada, [Maestro Facturas].Cancelada FROM [Maestro Facturas]" & _
" Where (([Maestro Facturas].Numero) = " & NumeroFactura & ")"

rcds.Open strSelect, db, adOpenStatic, adLockOptimistic

Exportada = rcds.Fields(1)
Cancelada = rcds.Fields(2)
rcds.Close

Dispone el Grid
    setGrid
Despliega el Grid
    displayList
Inicializa variables
    initVariables
    ComboFactura.Enabled = False
    cmdExportarAdminpaq.Enabled = True
    cmdExportarAdminpaq.SetFocus
    cmdPreliminar.Enabled = False
End Sub
