C# と VB.NET の質問掲示板

こんばんわ。前回もクリスタルレポート関係の質問を行いましたが、今回から製品版で再度作成することになりました。
vb側には、データグリッドビューが配置しておりグリッドビューで選ばれているデータをクリスタルレポートに表示するデータとして使用したいのですが、現在SQLはこうなっております。THE_CODEには選択しているデータの番号が入っています。

↓ソース
SQLWord.CommandText = "SELECT 抽出内容"
SQLWord.CommandText = SQLWord.CommandText & " FROM テーブル名 WHERE データの番号 = '" & The_CODE & "' ORDER BY 〜"
Dim ADP As New OracleClient.OracleDataAdapter

ADP.Fill(D_Set, "テーブル名")
D_Table = D_Set.Tables("テーブル名")

'この場所にCrystalReport1.〜　=　D_Tableという書き方とおもっていますが、リストには3つほどしか表示されません。
↑ソース
そもそも渡すデータの作り方がおかしいのでしょうか?
ご指導よろしくお願いします。 

現状報告します。


>The_REPORT.SetDataSource(D_Table)
>この後に
>CrystalReportViewerにThe_REPORTを設定してあげれば表示されませんか？
>crystalReportViewer1.ReportSource = The_REPORT;
>cryと入力を行ってもcrystalReportViewer1の選択肢が表示されない状態です。

と書きましたが、ソースを書いていた場所には、crystalReportViewer1がないので
出ないだけでした。
次フォームにcrystalReportViewer1を配置したところ、
CrystalReportViewer1.ReportSource が表示されました。どうもすみませんでした。
現状を説明しますと、CrystalReportViewer1を配置したフォームで表示するデータを抽出することにしました。
現在はCrystalReportViewer1を配置したフォーム直後に、
"レポートソースがありません"というエラーが出ています。
このようになっていますが、dataset作成して表示する方法で調べています。

↓現在のソース
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

SQLWord3.CommandText = "抽出内容"
SQLWord3.CommandText = SQLWord3.CommandText & " FROM テーブル名 WHERE 抽出番号 = '" & The_CODE & "' ORDER BY 〜"
Dim ADP As New OracleClient.OracleDataAdapter(SQLWord3)

ADP.Fill(D_Set2, "テーブル名")
D_Table2 = D_Set2.Tables("テーブル名")

CrystalReportViewer1.ReportSource = D_Table2

end sub

ひとまず表示できました。
クエリで抽出後、
以下のように書きました。     
       
Dim ADP As New OracleClient.OracleDataAdapter(SQLWord3)
ADP.Fill(D_Set2, "テーブル名")
D_Table2 = D_Set2.Tables("テーブル名")

Dim The_REPORT As New CrystalReport1
The_REPORT.SetDataSource(D_Table2)
CrystalReportViewer1.ReportSource = The_REPORT