为什么调用微软语音引擎，出现自动化错误，急请大家指点。

Question

为什么调用微软语音引擎，出现自动化错误，急请大家指点。测试代码如下
Private WithEvents RC As SpSharedRecoContext
Attribute RC.VB_VarHelpID = -1
Private myGrammar As ISpeechRecoGrammarPrivate Sub Form_Load()
    Set RC = New SpSharedRecoContext
    Set myGrammar = RC.CreateGrammar
    myGrammar.DictationSetState SGDSActive
End SubPrivate Sub RC_Recognition(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal Result As SpeechLib.ISpeechRecoResult)
    Text1.Text = Result.PhraseInfo.GetText
End Sub