ช่วยดูโค้ดให้หน่อยค่ะ เมื่อสินค้าหมดอายุ ต้องไม่สามารถขายสินค้าได้ค่ะ เขียนแล้วมันยังขายได้อยู่เลย

if CheckExpdate() then
   MessageBox.Show("ไม่สามารถขายสินค้าได้ เนื่องจากสินค้าตัวนี้หมดอายุแล้ว!!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
end if 

    Private Function CheckExpdate() As Boolean
        Dim OldAmount As Integer = 0
        Dim NewAmount As Integer = 0
        sb.Remove(0, sb.Length)
        sb.Append("SELECT ProdID,ProdName,ExpDate")
        sb.Append(" FROM Product")
        sb.Append(" WHERE ExpDate=Getdate()")
        Dim sqlProduct As String = sb.ToString()
        Dim dr As SqlDataReader
        com = New SqlCommand()
        With com
            .CommandType = CommandType.Text
            .CommandText = sqlProduct
            .Connection = Conn
            dr = .ExecuteReader()
            If dr.HasRows Then
                dr.Read()
                dr.Close()
                Return True
            End If
        End With
    End Function