Visual Basic

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