This example accepts the name of an open table and refreshes the data.
'***************** Code Start *******************
'Code by Terry Wickenden
Sub TableRefresh(strTable As String)
DoCmd.SelectObject acTable, strTable, False
DoCmd.RunCommand acCmdRefresh
End Sub
'****************** Code End ********************