VB中SpSharedRecoContext 报自动化错误 实时错误‘-2147467259 (80004005)’

Public WithEvents RC As SpSharedRecoContext
Public myGrammar As ISpeechRecoGrammar

Private Sub Form_Load()
On Error GoTo err_Handler
Set RC = New SpSharedRecoContext '自动化错误
Set myGrammar = RC.CreateGrammar
myGrammar.DictationSetState SGDSActive

err_Handler:
MsgBox Err.Description
Stop
Resume
End Sub

Private 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