ランタイムエラー '3709' vb6でSQLデータベースをアクセスしている間

Question

誰かが書いたVB6アプリケーションがありますが、それを使用しようとする一部のユーザーのみで機能しません。

これは、エラーを返すコードを実行しています。

 On Error GOTO error_handler
 ..
 Set db = New ADODB.Connection
 db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=****;Password=****; Initial Catalog=***;Data Source=****,1433"
 error_handler:
 If db.Error.count then
 strDBErrors = "No access to Main Database."
 For Each err In db.errors
  strDBErrors = strDBErrors & vbCrLf & err.Description
 Next
 MsgBox strDBErrors

このコードが実行された後、2つのエラーが発生します。 1つはランタイムエラー3709を記載し、もう1つは2つの行を備えたものです。1つはカスタムエラーメッセージ、2番目の行は次の場合です。 ユーザー".

これは、このプログラムがインストールされている特定のコンピューター上の1人のユーザーにのみ発生します。他のユーザーと一緒に他のコンピューターでは発生しません。そのコンピューターでそのユーザーを使用してプログラムを再インストールしてみましたが、機能しませんでした。

何か案は？

Answer 1

問題が何であるかはよくわかりませんが、Active Directoryでユーザーを消去して再度作成し、機能しました。ただし、ユーザーは拒否グループのメンバーではありませんでした。