VBのデータグリッドが表示されない！！！

こんにちはtmgmです。
データグリッドが表示されません。

状況としては
１．プログラムは正常に動いています。（「接続に成功しました」メッセージ、「レコード取得に成功しました」メッセージ、ともに表示されます。）

２．しかしデータグリッドには何一つ表示されません。（ツールボックスから貼り付けたままの状態です）

３．参照設定はMicrosoft ActiveX Data Objects 2.5 Library、コンポーネントはMicrosoft DataGrid Control6.0(SP5)(OLEDB)です。

どなたかお分かりになる方いらっしゃいますでしょうか？非常に困っています。
ご返答よろしくお願いします。

------------------------------------------------
Dim CONN As ADODB.Connection

'レコードセットの宣言
Dim RECO As ADODB.Recordset
'接続の宣言
Set CONN = New ADODB.Connection

'接続のプロパティ
With CONN
.ConnectionString=
　　　　"provider=Microsoft.jet.oledb.4.0;" _
& "data source=C:\TESTMDB.mdb"
.Open
End With

MsgBox "データベース接続に成功しました"


　　'レコードセットのプロパティ
Set RECO = New Recordset
With RECO
.ActiveConnection = CONN
.Source = "SELECT ～（省略）"
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Properties("IRowsetIdentity") = True
.Open
End With


　　'レコードセットをデータグリッドに連結
Set D_GRID.DataSource = RECO

MsgBox "レコードセット取得に成功しました
------------------------------------------------

No.4 ベストアンサー 回答者： nonyuchan 回答日時： 2004/01/22 11:18

#3の続き

SQL文のField名とグリッドのField名は一致していますか？括弧などあるとうまくいかない場合があります。
その場合は、SQL分でAS<別名>をつけグリットでも別名をfield名にするとうまきいきます。

これでだめならadodc経由でつないでみてはいかがでしょうか？

No.3 回答者： nonyuchan 回答日時： 2004/01/22 09:51

グリッドのデータソースを指定した後にグリッドの更新をしないと表示されません。

>　　'レコードセットをデータグリッドに連結
>Set D_GRID.DataSource = RECO
この後に
　D_GRID.Refresh

データコントロールを使用している場合には、
　＜データコントロール名＞.Refresh

この回答への補足

ご回答ありがとうございます。

D_GRID.Refreshと記述してみたんですが、だめでした。データグリッドのCaptionプロパティとかはきちんと反映されるんですけどねぇ～

補足日時：2004/01/22 10:09

No.2 回答者： Tibian 回答日時： 2004/01/21 22:17

まず、ＳＱＬが正しいかどうか調べるためにDB上で実行してください。

もし、それでレコードが取得できたのならプログラムに問題があります。
第二にADOコントロールで接続して表示できるか試してください。
残念ながらこのプログラムではメッセージボックスで文字が表示されたからと言って正常にレコードセットが取得できているとは確認できません。とれていなくてもでます。

No.1 回答者： how-do-you-do 回答日時： 2004/01/21 21:10

見た感じでは問題なさそうですね

ですが、2点ほどあります

1.レコードセットの宣言は良いのですが、展開時が？
　×Set RECO = New Recordset
　○Set RECO = New ADODB.Recordset

2.SQL文を省略されていますが、そのSQLは正しいですか？

この回答への補足

1．Set RECO = New ADODB.Recordsetに修正しましたができませんでした。（泣）

2．SQL文の実行テストでは正確にデータを抽出してきました。

他の理由は考えられますか？

補足日時：2004/01/22 08:50