Visual Basic

SqlDataAdapter1.Fill(Me.DataSet11)<br />
SqlDataAdapter2.Fill(Me.DataSet11)

Private Sub Command6_Click()<br />
Dim strSQL As String<br />
Dim conn As ADODB.Connection<br />
Dim rs As ADODB.Recordset<br />
<br />
    Set conn = New ADODB.Connection<br />
    Set rs = New ADODB.Recordset<br />
    <br />
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\User\Desktop\IS\ISDB.mdb; Persist Security Info=False"<br />
<br />
    conn.Mode = adModeRead<br />
        conn.Open<br />
    <br />
    strSQL = "SELECT MAX(inventno) FROM IncomingStk WHERE ProductCode= '"&code.Text&"'"<br />
<br />
    rs.Open (strSQL), conn<br />
    conn.Close<br />
     DataGrid1.Text = rs(0).Value<br />
    <br />
    Set rs = Nothing<br />
    Set conn = Nothing<br />
    <br />
End Sub

Dim frm As New Form
Dim EmpID As Integer = 1    ' for example, only - actually coming from a query
frm.Name = "Employee" & CStr(EmpID)
frm.Text = "Employee ID: " & CStr(EmpID)
frm.ShowDialog()

'Search<br />
<br />
        'If they have no active dataset, refuse:<br />
<br />
        'If ds.Tables.Count = 0 Then<br />
        '    MsgBox("Please use the file menu to open a dataset, or create         <br />
        'a new one first.")<br />
        '    Exit Sub<br />
        'End If<br />
<br />
        'search for the target in both columns, then display it<br />
<br />
        Dim searchfor As String = InputBox("Enter you Search Term", "Search")<br />
<br />
        searchfor = searchfor.ToLower<br />
        lstResults.Items.Clear()<br />
<br />
        Dim i, x, y, count As Integer<br />
<br />
        dt = ds.Tables!DVDLIST ' set dt to point to this table<br />
<br />
        TotalRows = dt.Rows.Count<br />
<br />
        For i = 0 To TotalRows - 1<br />
            x = ds.Tables(Name).Rows(i).Item(0).ToString.ToLower.IndexOf(searchfor) 'See if Title column matches<br />
<br />
            y = ds.Tables(0).Rows(i).Item(1).ToString.ToLower.IndexOf(searchfor) 'see about desc column too<br />
<br />
            If x <> -1 Or y <> -1 Then  'Match<br />
                lstResults.Items.Add(ds.Tables(0).Rows(i).Item(0))<br />
                'Add title field to a listbox<br />
                count += 1<br />
<br />
            End If<br />
<br />
        Next i<br />
<br />
<br />
        If count = 0 Then  'no matches found<br />
            MsgBox("No match for " & searchfor & " was found...")<br />
        Else<br />
            lstResults.Visible = True<br />
        End If