Nome do Campo

DODOMR

Tente

Dim DB As Database
Dim RS As Recordset
Dim i as Integer

Set DB = OpenDatabase(App.Path & "Banco.MDB")
Set RS = DB.OpenRecordset("Tabela")

On Error GoTo Erro_Description

For i = 0 To RS.Fields("campo").Properties.Count - 1

If RS.Fields("campo").Properties(i).Name = "Description" Then
MsgBox RS.Fields("campo").Properties(i).Name & " : " & RS.Fields("campo").Properties(i).Value
End If

Erro_Description:

If Err.Number <> 3265 And Err.Number <> 0 Then
MsgBox "Descrição do erro: " & Err.Description & vbCrLf & "Número do erro:" & Err.Number
End If

Acontece que caso o campo não tenha descrição vai dar um erro que é o acima "err.number = 3265 -> O item não foi encontrado na coleção". Então caso aconteça este erro ele "passa direto" conforme o tratamento do erro feito na lógica descrita. Se tiver outro qualquer ele exibe a mensagem. Fazendo isso vai achar a descrição do campo certo. Pois o número das propriedades varia de campo para campo. Então fazendo este "for..next" certamente achará a descrição com segurança.