التنبيه بتاريخ معين في قاعدة بيانات قبلها بوقت

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    Dim c As Integer = CheckColumnDate( [color=#FF0000][b]3[/b][/color] )

    If c > 0 Then

        MessageBox.Show("يوجد سجلات عدد ( " & c & " ) إقترب موعدها." _

                        , "تنبيه" _

                        , MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign Or MessageBoxOptions.RtlReading)



    End If

End Sub



Private Function CheckColumnDate(ByVal days As Integer) As Integer



    Dim sql As String = " SELECT *          " & _

                        "   FROM table1     " & _

                        "  WHERE [columndate] BETWEEN NOW() AND DateAdd('d', @days, NOW())  "



    Dim comm As New OleDb.OleDbCommand(sql, conn)

    comm.Parameters.AddWithValue("@days", days)



    Dim dt As New DataTable

    Dim da As New OleDb.OleDbDataAdapter(comm)

    da.Fill(dt)



    Return dt.Rows.Count



End Function