Dim MyCMd As OleDbCommand
        Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Inetpub\webs\makeritit\mdb-database\utenti.mdb;")
              cn.Open()
        MyCMd = cn.CreateCommand
        MyCMd.CommandText = "insert into persone (nome , cogn , e-mail , IP, data) values ('" & TextBox1.Text & "','" & TextBox2.Text & "' ,'" & TextBox3.Text & "', '" & TextBox4.Text & "','" & TextBox1.Text & "') "

        MyCMd.ExecuteNonQuery()