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

ゴンゴン  2005-09-19 13:16:42  No: 125475  IP: [192.*.*.*]

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

編集 削除
いぬかみっ！  2005-10-02 08:16:43  No: 125476  IP: [192.*.*.*]

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

編集 削除