(ADO)DBのグリッド表示できない。

質問

同じような質問がありますが、わからなかったので再度質問させていただきます。

下記のホームページにありますように、AccessのDBをDataGridに表示したところ、フォームのDataGridには
何も表示しません。エラーも発生していない様子を見る
とDBには接続していると思います。

http://homepage2.nifty.com/inform/vbdb/gridbyado.htm

下記が作成したもの
-------------------------------------------------
Private Sub Form_Load()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

' 接続する
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\test.mdb;"

' レコードセットを設定する
Set rs = New ADODB.Recordset
rs.Open "select * from test", cn, adOpenKeyset, adLockOptimistic

' グリッドのデータソースを指定する
Set DataGrid1.DataSource = rs

' グリッドを更新する
DataGrid1.Refresh

End Sub
------------------------------------------------
フォームの設定やDBの設定またはほかの設定など必要なのでしょうか。

本のサンプルなどで調べましたが、わかりません。
わかる方いらっしゃいましたら教えていただけないでしょうか。

よろしくお願いいたします。

-----------
環境
vb6 sp6

回答No.1

O_cyan · ベストアンサー

Accessデータベースにふくまれるテーブルやクエリを利用して作成したRecordsetオブジェクトはCursorLocationプロパティの値がadUseServerになっています。
Recordsetオブジェクトを開く前にCursorLocationプロパティの値を設定して下さい。
この辺が原因だと思います。

rs．CursorLocation = adUseClient　'←adUseServerからadUseClientへの設定
Set rs = New ADODB.Recordset
rs.Open "select * from test", cn, adOpenKeyset, adLockOptimistic

もしくは

Set rs = New ADODB.Recordset
rs．CursorLocation = adUseClient
rs.Open "select * from test", cn, adOpenKeyset, adLockOptimistic