Private Sub Command1_Click()
   Ssaved es una variable privada declarada en la seccin General - Declarations
Si el registro no se ha guardado, no se inserta el registro
If SSaved = True Then Exit Sub
dbHoteles.Recordset.AddNew
SSaved = True
End Sub
