【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
お礼
ありがとうございました!!