Visual Basic

    Function FourthTueOfNextMonth(dt As Date) As Date
        ' Start with the First Day of the Month, from the date passed in.
        ' Add one Month to that to get the first Day of the NEXT month.
        Dim currDate As Date = (New Date(dt.Year, dt.Month, 1)).AddMonths(1)
        ' Find the First Tuesday of the Month
        While currDate.DayOfWeek <> DayOfWeek.Tuesday
            currDate = currDate.AddDays(1)
        End While
        ' Add three more Weeks to jump to Fourth Tuesday
        Return currDate.AddDays(21)
    End Function

I have looked at the DB with DB Browser all data looks fine 
When I create the table I used this syntax
txSearchMonth TEXT)" same format for Year
Not sure changing to Numeric would solve the issue.
Thanks for the reply

gvYear = Convert.ToInt32(tbYear.Text)

cmd.CommandText = "SELECT * FROM TxData WHERE txSearchMonth >= $gvFromMonth AND txSearchMonth <= $gvToMonth AND txYear = $gvYear "

cmd.CommandText = "SELECT * FROM TxData WHERE txSearchMonth IN ($gvFromMonth, $gvToMonth) AND txYear = $gvYear "

Quote:

if I select Jan and Feb and enter the year my results includes the current month
NOT just January and February

ionline4u wrote:

if I try to open a project that I created using the "Windows Form App" template, I encounter an error message.

txtPdfPath.Text = OpenFileDialog1.FileName'PDf file uploaded here

frmBPA1.Pic1.Image.Save(ms1, frmBPA1.Pic1.Image.RawFormat)     

SqlQuery = "Insert into BPA1 (Pdf1)Values(@Pdf1)"

Dim strQuery As String = "Select ReceiptNo,Pic1 from BPA1 where ReceiptNo=@ReceiptNo"
                SQLCon1.Open()
                   comFile = New SqlCommand(strQuery, SQLCon1)
                   comFile.Parameters.AddWithValue("@ReceiptNo", Me.txtReceiptNo.Text.Trim)
                    daFile = New SqlDataAdapter(comFile)
                    daFile.Fill(taFile)
                    If taFile.Rows(0).Item("Pic1") IsNot DBNull.Value Then
                        Dim img() As Byte
                        img = taFile.Rows(0).Item("Pic1")
                        Dim ms As New MemoryStream(img)
                        If img.Length <> "0" Then
                        Me.Pic1.Image = Image.FromStream(ms)
                        ' Me.txtPdfPath.Text = File.FromStream(ms)
                    Else
                            Me.Pic1.Image = Nothing
                        End If
                    End If

Image.FromStream(ms)

Dim source As String = "202205W24"
Dim index As Integer = source.IndexOf("W"c)
Dim result As String = If(index = -1, String.Empty, source.Substring(index + 1))