アクセスレポートの空白行の非表示について

質問

• Access2016を使用しています。下記のような構造のテーブル（T_討論会）があり、これをレポート（R_討論会）に出力しています。
• 質問日、質問者、質問事項、質問詳細１はグループ化していて、質問詳細２、説明者は詳細セクションに配置しています。
• 「希望の表示レポート」の作成方法を教えてください。

回答No.4

山田 太郎（@f_a_007）

【DBLookup()について】

１、1996年に書いたDBLookup()を完全再現しました。
　・欠落していたOn Error Resume Nextを復活。
　・該当しない時の戻り値を指定できるようになりました。
２、AccessのLookup()、DCount()より３倍速で動作します。
３、もちろん、Lookup()、DCount()を利用してもOKです。

Public Function DBLookup(ByVal strQuerySQL As String, Optional ReturnValue As Variant = "") As Variant
On Error GoTo Err_DBLookup
　　Dim DataValue
　　Dim rst As ADODB.Recordset

　　Set rst = New ADODB.Recordset
　　With rst
　　　　.Open strQuerySQL, _
　　　　　　　CurrentProject.Connection, _
　　　　　　　adOpenStatic, _
　　　　　　　adLockReadOnly
　　　　If Not .BOF Then
　　　　　　.MoveFirst
　　　　　　DataValue = .Fields(0)
　　　　End If
　　End With
Exit_DBLookup:
On Error Resume Next
　　rst.Close
　　Set rst = Nothing
　　DBLookup = IIf(Len(DataValue & ""), DataValue, ReturnValue)
　　Exit Function
Err_DBLookup:
　　MsgBox "SELECT 文の実行時にエラーが発生しました。(DBLookup)" & Chr$(13) & Chr$(13) & _
　　　　　 "・Err.Description=" & Err.Description & Chr$(13) & _
　　　　　 "・SQL Text=" & strQuerySQL, _
　　　　　 vbExclamation, " 関数エラーメッセージ"
　　Resume Exit_DBLookup
End Function

お礼

追加で質問です。
質問日は日付型でなく、テキスト型で入っているためエラーが出たようです。
どう修正したらよろしいでしょうか。

補足

f_a_007さん、何度もすみません。
　今送ったエラーに関しては、このDBLookup関数が必要だったわけですね。見逃しました。
　早速、DBLookup関数を入れたもので試してみます。