Visual Basic

 Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click<br />
        Dim oForm2Data As New Form2.Form2Data(Me.txtbarcodeid.Text)<br />
<br />
        If oForm2Data.HasData Then<br />
<br />
            Form2.Initialize(Me, oForm2Data)<br />
<br />
        Else<br />
            ' The Data does not exists for the item in the textbox<br />
<br />
        End If<br />
    End Sub<br />

Dim dt As New DataTable<br />
    Dim sqlStr As String = "SELECT * FROM testbackup"<br />
    Dim sqlstr1 As String = "SELECT * FROM history"<br />
    Dim connstr As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & _<br />
    "Data Source = backup.mdb"<br />
    Dim dataadapter As New OleDb.OleDbDataAdapter(sqlStr, connstr)<br />
<br />
    Public Shared Sub Initialize(ByVal Owner As IWin32Window, ByRef oForm2Data As Form2Data)<br />
        Dim result As DialogResult<br />
        Dim frm2 As New Form2<br />
<br />
        With frm2<br />
            'Using TheData Populate each Control on Form2<br />
        End With<br />
<br />
        Result = frm2.ShowDialog(Owner)<br />
<br />
        If Result = System.Windows.Forms.DialogResult.OK Then<br />
<br />
<br />
            With frm2<br />
                'Now update the values in TheData with its value in its Form2 Control<br />
            End With<br />
<br />
            'Save Changes<br />
            oForm2Data.SaveData()<br />
        End If<br />
<br />
    End Sub<br />
<br />
    Public Class Form2Data<br />
        Public HasData As Boolean<br />
        Public TheData As DataRow<br />
<br />
        Public Sub New(ByVal Value As String)<br />
            Dim dsData As DataSet<br />
            Dim stSQL As String<br />
<br />
            stSQL = "Select * from testbackup Where barcodeid = '" & Value & "'"<br />
<br />
            'Database code to return dataset to dsData<br />
<br />
<br />
            Select Case dsData.Tables(0).Rows.Count<br />
                Case 1 'One Row Returned<br />
                    HasData = True<br />
                    TheData = dsData.Tables(0).Rows(0)<br />
                Case 0 'No Rows Found<br />
                    HasData = False<br />
                    TheData = Nothing<br />
                Case Else 'More then one row returned<br />
                    'Decided how to handle<br />
                    HasData = True<br />
                    TheData = dsData.Tables(0).Rows(0)<br />
            End Select<br />
<br />
<br />
        End Sub<br />
<br />
        Public Sub SaveData()<br />
            'Routine to save the data<br />
        End Sub