Partial Class upload
    Inherits System.Web.UI.Page

    Protected Sub cmdAdd_Click(sender As Object, e As System.EventArgs) Handles cmdAdd.Click
        'preparazione data adapter
        Dim DA As New myDSTableAdapters.documentsTableAdapter

        'preparazone informazioni
        Dim titolo As String = TextBox1.Text
        Dim descr As String = TextBox2.Text
        Dim data As Date = TextBox3.Text
        Dim pub_da As String = TextBox4.Text
        Dim fileName As String = FileUpload1.FileName

        'salvataggio file
        Dim docPath As String = "C:\(percorso completo)\doc\"
        FileUpload1.SaveAs(docPath & fileName)

        'inserimento nel db
        DA.Insert(titolo, descr, data, pub_da, fileName)

        'refresh gridview
        GridView1.DataBind()



    End Sub

Dim docPath As String = "C:\(percorso completo)\doc\"
        FileUpload1.SaveAs(docPath & fileName)