Dim txt As string = Tables("表名").Current("第一列")
sp.Speak(txt, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)