Private Sub Form_Load()
se llena el Control data dbHoteles con los registros de la tabla Hoteles
dbHoteles.DatabaseName = frmMain.Ap_Path & frmMain.dbName
SQL = "SELECT * FROM Hoteles"
dbHoteles.RecordSource = SQL
dbHoteles.Refresh
End Sub
