Set conn = New ADODB.Connection ' установить соединение, при ошибке выйти из приложения
      If varUser = vbNullString Then
            conn.ConnectionString = ";DSN=knowledgebase"
        Else
            conn.ConnectionString = ";DSN=knowledgebase;UID=" & varUser & ";"
        End If
        conn.Properties("Prompt") = adPromptCompleteRequired
        conn.Open
    
        StrConnect = right$(conn.ConnectionString, Len(conn.ConnectionString) - InStr(conn.ConnectionString, """"))
            StrConnect = Left(StrConnect, Len(StrConnect) -  1 )
            Set dBase = DBEngine.Workspaces( 0 ).OpenDatabase("", dbDriverPrompt, False, StrConnect)