Database datagridview中的日期操作

抱歉，vbNET中的新手。
我对数据库中的日期操作有这个问题。
我想加载保存日期超过40天的数据库。
我想使用按钮加载。
这是我写的代码

Private Sub BtnPenalty_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles BtnPenalty.Click

    If (CbxSort.Text = "Transaction Date") Then
        Srt = "[CCCD Loading Database]"
    ElseIf (CbxSort.Text = "Unit Number") Then
        Srt = "F2"
    ElseIf (CbxSort.Text = "Category") Then
        Srt = "F3"
    ElseIf (CbxSort.Text = "Type Length") Then
        Srt = "F5"
    ElseIf (CbxSort.Text = "T-State") Then
        Srt = "F6"
    ElseIf (CbxSort.Text = "Position") Then
        Srt = "F7"
    ElseIf (CbxSort.Text = "I/B Actual Visiting") Then
        Srt = "F8"
    ElseIf (CbxSort.Text = "Fright Kind") Then
        Srt = "F9"
    End If


    Try
        FillDGView("SELECT [CCCD Loading Database] AS [Transaction Date], [F2] AS [Unit Number], [F3] AS [Category], " & _
                  " [F4] AS [Temp Required (C)], [F5] AS [Type Length], [F6] AS [T-State], [F7] AS [Position], [F8] AS [I/B Actual Visit], " & _
                  " [F9] AS [Fright Kind] FROM [Loading$] ORDER BY " & Srt & "  ")

        LblList.Text = "Penalty List"

    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical, Text)

    End Try

End Sub

---

如果您使用的是SQL Server，请使用DATEDIFF函数，以便使用where子句

WHERE datediff(d,  [Transaction Date], getdate()) > 40

---

@Gerald de Visser，我没有使用SQL Server，先生。我使用Excel作为数据库。这就是我检索数据的原因。但我会试试的。