Private Declare Function EncryptPswd Lib "CMVISM32" (ByVal pswd$, ByVal encrypt$) As Integer
Dim Factory As CacheObject.Factory
Private Sub Form_Load()
  Dim res As Boolean
  Dim ConnStr As String
  Set Factory = New CacheObject.Factory
  '--- пример 1 ---
  ret$ = String$(8, Chr(0))
  pwlen = EncryptPswd("sys", ret$)
  ret$ = Left$(ret$, pwlen)
  ConnStr = Factory.ConnectDlg("title") & ":_SYSTEM:" & ret$
  '--- пример 2 ---
  'ConnStr = Factory.ConnectDlg("title+%up")
  '--- общая часть ---
  Factory.Connect (ConnStr)
  If Factory.IsConnected Then
    Debug.Print "Connect ok"
  Else
    Debug.Print "Connect fail"
  End If
End Sub