Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\Chat\App_data\Chat.mdb") & ";")
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand("p_Contattato", cn)
        cmd.CommandType = System.Data.CommandType.StoredProcedure
        cmd.Parameters.Add("Contatt", OleDb.OleDbType.VarChar, 10).Value = "Admin"
        cmd.Connection.Open()
         Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader