vbscript - Outlook VBScript 予期されるステートメント エラー

Question

このサイトは初めてです。答えを徹底的に探しましたが、答えが見つからないようです。素敵な人が私を助けてくれることを願っています....

ありがとうございました

以下のコードを使用してカスタム フォームを実行しようとすると、次のメッセージが表示されます。

Script Error
Expected statement
Line No:33

コード：

Function Item_Open()
    Dim LeaveItem
    Dim IO
    If not Connection_Open Then
        MsgBox("Error connecting to SI")
        LeaveItem = True
        Item_Open = False
    Else
        Item_Open = False
    End If
End Function

Function Item_Close()
    If LeaveItem = True Then
        Exit_Function
    Else
    End If
End Function

Subroutine Connection_Open()
    Dim oSI
    Set oSI = New ADODB.Connection
    Dim ostrSI
    oSI.ConnectionString = "Driver={Progress OpenEdge 10.1C  Driver};HOST=192.168.1.1;DB=kob;UID=sii;PWD=sisys1;PORT=2501;"
    oSI.Open
End Sub

Answer 1

変化する

Subroutine Connection_Open()

に

Sub Connection_Open()