【VB】データグリッドコントロールにデータベースを表示させたい

質問

お世話になります。
フォーム上にMicrosoft DataGrid Control 6.0(OLEDB)を置いて、
データベースと接続し、データベースを表示させたいのですが、
データベースエンジンがMicrosoft.Jet.OLEDB3.51だとうまく表示してくれますが
4.0だとなぜか表示してくれません。

原因、対策などわかるでしょうか？

ソースは以下のように単純なものです。

Private cn As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\パスワード管理.mdb"
cn.Open

Set rs = New ADODB.Recordset
rs.Open "パスワード", cn, adOpenStatic, adLockReadOnly

Set DataGrid1.DataSource = rs

End Sub

回答No.1

TORYS · ベストアンサー

こんにちは。

RecordsetオブジェクトのOpenメソッドを実行する前に、CursorLocationプロパティを設定すれば良いかと。

すなわち

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient '←追加
rs.Open "パスワード", cn, adOpenStatic, adLockReadOnly

お礼

ご回答ありがとうございます。
無事表示させることができました。

あの後必死で解決策を探しました。
http://support.microsoft.com/default.aspx?scid=kb;ja;224192

サーバーを介さずクライアントのみで使うならTORYSさんのやり方でも良さそうですね。