Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strConnessione As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DbOggetti.mdb"
        Dim queryString2 As String
        Dim Ragio As String = Me.TxtRagione.Text
        Dim Indiriz As String = Me.TxtInd.Text

        Using ConnIns As New OleDb.OleDbConnection(strConnessione)
            ConnIns.Open()
            queryString2 = "INSERT INTO Anagrafica (Indirizzo) VALUES ('" & Indiriz & "')"
            Dim InsCli As New OleDb.OleDbCommand(queryString2, ConnIns)
            Dim ResultCli As Integer
            ResultCli = InsCli.ExecuteNonQuery
        End Using