Private Sub Combo1_GotFocus()
'Trayecto de Aplicacin.
Se establece la propiedad RecordSource del data control dbAplicacion de                                 
manera que contenga los datos de la tabla Estaciones de la Base de datos 
C:\Sicres\Datos\MSunrise.mdb
dbAplicacion.RecordSource = "SELECT * FROM Estaciones"
dbAplicacion.Refresh
dbAplicacion.Recordset.MoveLast
dbAplicacion.Recordset.MoveFirst
'Usuarios.
Se establece la propiedad DataBaseName del data control dbUser para que
sea la ruta de la base de datos y el nombre de la base de datos 
Sunrise.mdb.

dbUser.DatabaseName = dbAplicacion.Recordset.Fields("Aplic_p").Value & "Sunrise.mdb"
Se establece la propiedad RecordSource del data control dbUser de                                 
manera que contenga los datos de la tabla Users de la Base de datos 
P:\Sicres\Datos\Sunrise.mdb
dbUser.RecordsetType = 1
dbUser.RecordSource = "SELECT * FROM Users"
dbUser.Refresh
dbUser.Recordset.MoveFirst
Se limpia el contenido del ComboBox, y se vuelve a llenar con el contenido
del campo Ident, que es la identificacin del usuario de la Tabla Users.
Combo1.Clear
   Do While Not dbUser.Recordset.EOF
     Combo1.AddItem dbUser.Recordset.Fields("Ident").Value
     dbUser.Recordset.MoveNext
   Loop
dbAplicacion.Recordset.Close
dbUser.Recordset.Close
End Sub
