DBｇｒｉｄにパスワード付ｍｄｂのデータを表示するには？

ゴンゴン 2005-09-19 22:16:42 No: 125475

DBｇｒｉｄにパスワード付ｍｄｂのデータ（テーブルデータ）を表示させたいのですが何か良い方法ごぞんじでしょうか？
いろいろやってみているのですが、うまくｐｗｄを認識しません。

いぬかみっ！ 2005-10-02 17:16:43 No: 125476

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

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source= ".mdbファイルの場所"
cn.Properties("Jet OLEDB:Database Password") = "パスワードを書く"
cn.Open
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn
rs.Source = "SQLを書く"
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Properties("IRowsetIdentity") = True
rs.Open
Set DataGrid1.DataSource = rs