Visual Basic

<br />
Module T_Module<br />
    Public Function SaveChanges(ByVal callingform As Form, ByVal datachange As Boolean, Optional ByVal text As String = Nothing) As Integer<br />
        Dim message As String<br />
        Dim reply As Integer<br />
        Dim fbid As String<br />
        Const QMark As String = "?"<br />
        If text = Nothing Then<br />
            message = "Do u want Save thease Changes"<br />
        Else<br />
            message = text<br />
            text = message<br />
<br />
            If text.Substring(text.Length - 1) <> QMark Then<br />
                text &= QMark<br />
            End If<br />
<br />
        End If<br />
        reply = 1<br />
<br />
        If datachange Then<br />
           <br />
            Select Case MessageBox.Show(text, "Data Changed", MessageBoxButtons.YesNoCancel)<br />
                Case DialogResult.Yes : reply = 0<br />
                Case DialogResult.Cancel : reply = 2<br />
            End Select<br />
        End If<br />
        Return reply<br />
    End Function<br />
<br />
End Module<br />

harish139 wrote:

please help

SELECT PN, VA FROM Table1 WHERE PN=@PN AND VA=@VA

SELECT PN, VA FROM Table1