Outlook VBScript Erwartete Anweisung Fehler

Question

Ich bin neu auf dieser Website. Ich habe gründlich nach einer Antwort gesucht und kann keine Antwort finden. Ich hoffe einer von euch feine Menschen in der Lage sein werden, mir zu helfen ....

Danke

Wenn ich versuche, unten mein benutzerdefiniertes Formular mit Code-Show zu laufen, erhalte ich die folgende Meldung:

Script Error 
Expected statement 
Line No:33 

Code:

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

ändern

Subroutine Connection_Open() 

zu

Sub Connection_Open()