Steht übrigens deutlich im Source-Code :

' User und Passwort nur ab CA/400 V4R4 Express Client relevant !!!
'cn400.Properties("user id") = "USER"
'cn400.Properties("password") = "PASSWORD"
'hier eigenen AS/400 Systemnamen einsetzen !!!
cn400.Properties("data source") = "SYSTEM"

Also, erst lesen, dann ...