How To MessageBox Contents Of A Table With A Button

This may seem a very simple question, but I really don't know how to do it. Basically, I want to MessageBox contents of a table with a button. I have a table called Map, and has two fiels: Column Number and Description. When a button is pressed, then I want a messagebox to come up and show the column number and the description of a single field. Although I know it is very wrong, here is the code I used for this (r![column Number] = 4 is meant to be the forth column number in the table):

Dim d As Database
Set d = CurrentDb
Dim r As Recordset
Set r = d.OpenRecordset("Map")


r![column Number] = 4
MsgBox "Column No: " & r![column Number] & ". Description: " & (r![Description])

By the way, there are seperate buttons for seperate fields. It is DAO as well
Thanx in advance