Private Sub ComandoAggDest_Click()

    
    sql = "insert into Oggetti(IDO,NomeO,Descrizione,Larghezza,Lunghezza,Profondita,Liquido,Fragile,Quantita) values (insido,insoggnome,insoggdescrizione,insogglarg,insogglungh,insoggprof,insoggliquido,insoggfragile,insoggqta)"
    DoCmd.RunSQL sql
    resp = MsgBox("Oggetto Inserito con Successo!!!", vbInformation, "Gestione Trasporti")
    insido = ""
    insoggnome = ""
    insoggdescrizione = ""
    insogglarg = ""
    insogglungh = ""
    insoggprof = ""
    insoggliquido = ""
    insoggfragile = ""
    insoggqta = ""
    DoCmd.GoToRecord , , acNewRec
    
    End Sub