Private Sub Form_Load()
    dbName = frmMain.Ap_Path & frmMain.dbName
Establece una variable db declarada en la seccin General del formulario,
para que sea una nueva conexin ADODB
      Set db = New ADODB.Connection
    db.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & dbName
Establece la variable rcds, declarada en la seccin general del formulario,
para que sea un nuevo recordset
    Set rcds = New ADODB.Recordset
    El control data Data1, se conecta a la base de datos de Sicres
 Data1.DatabaseName = frmMain.Ap_Path & frmMain.dbName
 Data1.RecordsetType = 1
Data1.Refresh
Se establece la variable gDefaultDatabase, como el nombre de la base de
datos del control data Data1. Esta variable sirve para la funcin de DLookUp
Set gDefaultDatabase = Data1.Database
    SSDateCombo1.DateValue = Format(Now(), "DD/MM/YY")
End Sub
