关于access字段朗读的问题

希望在表中输入记录时，先朗读对应的字段名,输入数值后，回车，朗读下个字段，再输入，以此类推....。我现在可以实现朗读字段的功能，如下：

Function 读字段()
Set myobject = CreateObject("excel.application")
Set db = DBEngine.Workspaces(0).Databases(0)
Set pp = db.OpenRecordset("表1")

With pp
  For i = 0 To .RecordCount
  myobject.speech.speak (.Fields(i).Name)
  If .EOF Then
  Exit For
  End If
  Next i
  .Close
End With

End Function

这段函数只能连续读字段，但是无法在表记录操作时进行即时朗读。烦请高手将此段程序改成可以在表中运行的程序，例如利用宏-AutoExec-RunCode,在access启动的时候，自动在表中（非窗体）运行。请与我联系mx_don@163.com,有酬谢。