Private Function diretel.frm_notas.Form_Unload.1.txt
frm_principal.Data1.Recordset.Edit
frm_principal.Data1.Recordset.Collect = ("notas" frm_notas.1.txt_texto)
frm_principal.Data1.Recordset.Update 1,False
frm_principal.Data1.Refresh
Set Local1 as Nothing
End Sub