Private Sub Form_Load()
El control Data dbApath, que esta conectado a la base de datos
C:\Sicres\Datos\MSunrise.mdb, se llena con la tabla Estaciones
dbApath.RecordSource = "SELECT * FROM Estaciones"
dbApath.Refresh
dbApath.Recordset.MoveLast
dbApath.Recordset.MoveFirst
A Continuacin se almacena los valores de las variables publicas Ap_Path,
 Ap_Hist, Ap_TPort  y dbName
Ap_Path = dbApath.Recordset.Fields("Aplic_p").Value
Ap_Hist = dbApath.Recordset.Fields("Aplic_h").Value
Ap_TPort = dbApath.Recordset.Fields("Puerto_ticket").Value
dbApath.Database.Close
dbName = "Sunrise.mdb"
End Sub
