How to add/modify the 'Description' property value for LinkTable in VBA?

I have a LinkTable which points to an existing table of S开发者_运维知识库QL server in my Access database. I need to change the 'Description' property value for that table link.

I had tried many ways but failed to do that.

Can any any one help me in this regard ?

Some notes.

Dim db As DAO.Database
Dim tdf As TableDef

Set db = CurrentDb
Set tdf = db.TableDefs("Table1")

On Error Resume Next
tdf.Properties("Description") = "Link"

If Err.Number = 3270 Then 'property not found
    Set prp = tdf.CreateProperty("Description", dbText, "Link")
    tdf.Properties.Append prp
End If