Protected Sub btn_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn.Click
     Dim newDoc as Doc = new Doc()

     newDoc.Tdoc =Me.cmb_cod_tipoDocumento.SelectedValue

     newDoc.Save()

End Sub