いつもお世話になります。

VB6を使用してサーバーのACCESSデータベースMDBを利用しています。良くないのはわかりますが複数で使用するために同時にデータを取得しようとすると「実行時エラー 3050 ファイルをロックできませんでした。」となります。
回避策はないでしょうか？
Global table_A_ws               As Workspace
Global table_A_db               As Database
Global table_A_rs               As Recordset

Set table_A_ws = DBEngine.CreateWorkspace("MyWorkspace", "admin", "", dbUseJet)
Set table_A_db = table_A_ws.OpenDatabase(\\server\test\test.mdb)  ←ここでひかかります。

やはりACCESSでの共有使用は無理でしょうか？

教えて下さい。

コンパイルエラーになりませんか？
> Set table_A_db = table_A_ws.OpenDatabase(\\server\test\test.mdb)  ←ここでひかかります。

>
> コンパイルエラーになりませんか？
> > Set table_A_db = table_A_ws.OpenDatabase(\\server\test\test.mdb)  ←ここでひかかります。
ディストリビューション ウィザードでセットアップｅｘｅも作成しているのでコンパイルに問題はないと思うのですが

> >
> > コンパイルエラーになりませんか？
> > > Set table_A_db = table_A_ws.OpenDatabase(\\server\test\test.mdb)  ←ここでひかかります。
> ディストリビューション ウィザードでセットアップｅｘｅも作成しているのでコンパイルに問題はないと思うのですが
>
""で囲ってないといいたいのだと。

'読みにくいので適宜改行しました。
> VB6を使用してサーバーのACCESSデータベースMDBを利用しています。
> 良くないのはわかりますが複数で使用するために
> 同時にデータを取得しようとすると
>「実行時エラー 3050 ファイルをロックできませんでした。」
> となります。

確かにいろいろ良くないのかもしれませんが．．．
このエラーを見る限りでは、
.MDBファイルを開くときに.LDBファイルが作られますが、
それがうまくいっていないのではないかと思われます。
.MDBファイルと.LDBファイルのアクセス権と、
\\server\test\　のアクセス権（ファイル作成権限）を確認してください。

> '読みにくいので適宜改行しました。
> > VB6を使用してサーバーのACCESSデータベースMDBを利用しています。
> > 良くないのはわかりますが複数で使用するために
> > 同時にデータを取得しようとすると
> >「実行時エラー 3050 ファイルをロックできませんでした。」
> > となります。
>
> 確かにいろいろ良くないのかもしれませんが．．．
> このエラーを見る限りでは、
> .MDBファイルを開くときに.LDBファイルが作られますが、
> それがうまくいっていないのではないかと思われます。
> .MDBファイルと.LDBファイルのアクセス権と、
> \\server\test\　のアクセス権（ファイル作成権限）を確認してください。
ありがとうございます。いろいろとまた確認してみます。