やじゅ様が書いていただいたTables[0].Rowsをヒントに
探してみたところ、データテーブルのヘルプで糸口がつかめました。
このように記入したところ希望していた動作を作ることができました。
ありがとうございました。
※ D_tableはデータテーブル。
If D_table.Rows.Count = 0 Then
MessageBox.Show("データがありません")
Else
Dim The_REPORT As New CrystalReport1
The_REPORT.SetDataSource(D_table)
CrystalReportViewer1.ReportSource = The_REPORT
End If