You probably want something like
Code:
Dim oTable As Table
Dim oCell As Cell
If ActiveDocument.Tables.Count > 0 Then
Set oTable = ActiveDocument.Tables(1) 'the first table
Set oCell = oTable.Cell(1, 1) 'Row 1, Column 1
oCell.Range.Fields.Update
End If