GRAPH - DataLabel.Text - How to assigne a specific data ?

[accessuserit]

I need to show a text containeined in a specific field in my Scatter Chart type, around the single point.

I have founded a function very similar, but incomplete.
the function is belove:
-----------------------------------
Private Sub cmdAddLabels_Click()
With Mychart.SeriesCollection(1).Points(2)
.HasDataLabel = True
.DataLabel.Text = "MyText"
.DataLabel.Font.ColorIndex = 0
End With
End Sub
-----------------------------------------
This function, show on side of point the text "MyText"

Now, i need to replace by a function, the value "MyText" with my field [company_name] on row 1 (record1)

Help me please

Very Very Thanks
Paul