Public Sub inserisci()

        Dim conn As New OleDbConnection
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Lorenzo\Documents\Visual Studio 2005\Projects\WAprova\mdb-database\prova.mdb;User Id=admin;Password=;"

        Dim ole As New OleDbCommand("InsertPersona", conn)
        ole.CommandType = CommandType.StoredProcedure
        ole.Parameters.Add(CreateInputParam("pNome", OleDbType.LongVarChar, 255, "Caio"))
        ole.Parameters.Add(CreateInputParam("pCognome", OleDbType.LongVarChar, 255, "Tizio"))

        conn.Open()

        ole.ExecuteNonQuery()
        ole.Dispose()
        conn.Close()
    End Sub