Public Sub softwareGrid_EditCommand(ByVal source As Object, _
        ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) _
        Handles softwareGrid.EditCommand
        softwareGrid.EditItemIndex = e.Item.ItemIndex
 
        Dim test As String
        test = softwareGrid.EditItemIndex
        Debug.WriteLine(test)
        Me.BindDataGrid()
        'Dim txtSoftNum As String
        'txtSoftNum = CType(e.Item.Cells(0).Controls(0), TextBox).Text
        'Debug.WriteLine("this is the content of the software number text box:")
        'Debug.WriteLine(txtSoftNum)
    End Sub
 
    Public Sub softwareGrid_CancelCommand(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
        softwareGrid.EditItemIndex = -1
        BindDataGrid()
    End Sub
 
    Private Sub BindDataGrid()
        softwareGrid.DataSource = softwareDS
        softwareGrid.DataMember = "SOFTWARE DATABASE"
        softwareGrid.DataKeyField = "Software #"
    End Sub
 
    Public Sub softwareGrid_UpdateCommand(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
        Dim tbSoftwareNum As TextBox = E.Item.Cells(0).Controls(0)
        Dim tbSoftwareName As TextBox = E.Item.Cells(1).Controls(0)
        Dim tbVersion As TextBox = E.Item.Cells(2).Controls(0)
        Dim tbLocation As TextBox = E.Item.Cells(3).Controls(0)
        Dim tbSoftBrand As TextBox = E.Item.Cells(4).Controls(0)
        Dim tbDatePurchased As TextBox = E.Item.Cells(5).Controls(0)
        Dim tbFirstName As TextBox = E.Item.Cells(6).Controls(0)
        Dim tbLastName As TextBox = E.Item.Cells(7).Controls(0)
        Dim tbSerialNumber As TextBox = E.Item.Cells(8).Controls(0)
        Dim tbModel As TextBox = E.Item.Cells(9).Controls(0)
        Dim txtSoftwareNum As String
        txtSoftwareNum = CType(E.Item.Cells(0).Controls(0), TextBox).Text
        Debug.WriteLine("Soft Num")
        Debug.WriteLine(txtSoftwareNum)
        Dim txtModel As String
        txtModel = CType(E.Item.Cells(9).Controls(0), TextBox).Text
        Debug.WriteLine("Model")
        Debug.WriteLine(txtModel)
    End Sub

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal E As System.EventArgs) Handles btnSearch.Click
 
        Dim Connect As OleDbConnection = New OleDbConnection()
        Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter()
        Dim SelectStatement, ConnectString As String
        Dim WhereClause As String
 
        WhereClause = "Where "
        If txtSoftwareNum.Text <> "" Then
            WhereClause = WhereClause & "InStr([Software #],'" & _
            txtSoftwareNum.Text & "')>0 AND "
        End If
        If txtSoftwareName.Text <> "" Then
            WhereClause = WhereClause & "InStr([Software Name],'" & _
            txtSoftwareName.Text & "')>0 AND "
        End If
        If txtVersion.Text <> "" Then
            WhereClause = WhereClause & "InStr(Version,'" & _
            txtVersion.Text & "')>0 AND "
        End If
        If txtLocation.Text <> "" Then
            WhereClause = WhereClause & "InStr(Location,'" & _
            txtLocation.Text & "')>0 AND "
        End If
        If txtSoftwareBrand.Text <> "" Then
            WhereClause = WhereClause & "InStr([Soft Brand],'" & _
            txtSoftwareBrand.Text & "')>0 AND "
        End If
        If txtDatePurchased.Text <> "" Then
            WhereClause = WhereClause & "InStr(DatePurchased,'" & _
            txtDatePurchased.Text & "')>0 AND "
        End If
        If txtFirstName.Text <> "" Then
            WhereClause = WhereClause & "InStr(FirstName,'" & _
            txtFirstName.Text & "')>0 AND "
        End If
        If txtLastName.Text <> "" Then
            WhereClause = WhereClause & "InStr(LastName,'" & _
            txtLastName.Text & "')>0 AND "
        End If
        If txtSerialNumber.Text <> "" Then
            WhereClause = WhereClause & "InStr([Serial Number],'" & _
            txtSerialNumber.Text & "')>0 AND "
        End If
        If txtModel.Text <> "" Then
            WhereClause = WhereClause & "InStr(Model,'" & _
            txtModel.Text & "')>0 AND "
        End If
        If Right(WhereClause, 4) = "AND " Then
            WhereClause = Left(WhereClause, Len(WhereClause) - 4)
        End If
 
        SelectStatement = "Select * From [SOFTWARE DATABASE] " & WhereClause
 
        ' If they didnt enter anything in the textboxes:
        If txtSoftwareNum.Text = "" And txtSoftwareName.Text = "" And _
        txtVersion.Text = "" And txtLocation.Text = "" And _
        txtSoftwareBrand.Text = "" And txtDatePurchased.Text = "" And _
        txtFirstName.Text = "" And txtLastName.Text = "" And _
        txtSerialNumber.Text = "" And txtModel.Text = "" Then
            SelectStatement = "Select * From [SOFTWARE DATABASE]"
        Else
        End If
        ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=c:\Inetpub\wwwroot\ASPproject\WebApplication2\software\softwaredb.mdb"
 
        Connect.ConnectionString = ConnectString
        Adapter.SelectCommand = _
        New OleDbCommand(SelectStatement, Connect)
        Adapter.SelectCommand.Connection.Open()
        Adapter.Fill(softwareDS, "[SOFTWARE DATABASE]")
        softwareGrid.DataSource = softwareDS.Tables("[SOFTWARE DATABASE]")
        Page.DataBind()
    End Sub
 

 Public Sub softwareGrid_UpdateCommand(ByVal source As Object, ByVal E As DataGridCommandEventArgs) Handles softwareGrid.UpdateCommand
        Dim tbSoftwareNum As String
        tbSoftwareNum = E.Item.Cells(0).Text
        Dim tbSoftwareName As String
        tbSoftwareName = CType(E.Item.Cells(1).Controls(0), TextBox).Text
        Dim tbVersion As String
        tbVersion = CType(E.Item.Cells(2).Controls(0), TextBox).Text
        Dim tbLocation As String
        tbLocation = CType(E.Item.Cells(3).Controls(0), TextBox).Text
        Dim tbSoftBrand As String
        tbSoftBrand = CType(E.Item.Cells(4).Controls(0), TextBox).Text
        Dim tbDatePurchased As String
        tbDatePurchased = CType(E.Item.Cells(5).Controls(0), TextBox).Text
        Dim tbFirstName As String
        tbFirstName = CType(E.Item.Cells(6).Controls(0), TextBox).Text
        Dim tbLastName As String
        tbLastName = CType(E.Item.Cells(7).Controls(0), TextBox).Text
        Dim tbSerialNumber As String
        tbSerialNumber = CType(E.Item.Cells(8).Controls(0), TextBox).Text
        Dim tbModel As String
        tbModel = CType(E.Item.Cells(9).Controls(0), TextBox).Text
 
        Debug.WriteLine("Soft Num")
        Debug.WriteLine(tbSoftwareNum)
        Debug.WriteLine("Software Name")
        Debug.WriteLine(tbSoftwareName)
        Debug.WriteLine("Version")
        Debug.WriteLine(tbVersion)
        Debug.WriteLine("Location")
        Debug.WriteLine(tbLocation)
        Debug.WriteLine("Soft Brand")
        Debug.WriteLine(tbSoftBrand)
        Debug.WriteLine("DatePurchased")
        Debug.WriteLine(tbDatePurchased)
        Debug.WriteLine("First Name")
        Debug.WriteLine(tbFirstName)
        Debug.WriteLine("Last Name")
        Debug.WriteLine(tbLastName)
        Debug.WriteLine("Serial Number")
        Debug.WriteLine(tbSerialNumber)
        Debug.WriteLine("Model")
        Debug.WriteLine(tbModel)
 
        If ValidEntry(tbSoftwareNum, tbSoftwareName, tbLocation) Then
            Dim dr As DataRow = dsSoftware.Tables("[SOFTWARE DATABASE]").Rows(E.Item.ItemIndex)
            Try
                dr("Software #") = tbSoftwareNum
                dr("Software Name") = tbSoftwareName
                dr("Version") = tbVersion
                dr("Location") = tbLocation
                dr("Soft Brand") = tbSoftBrand
                dr("DatePurchased") = tbDatePurchased
                dr("FirstName") = tbFirstName
                dr("LastName") = tbLastName
                dr("Serial Number") = tbSerialNumber
                dr("Model") = tbModel
                Me.UpdateDataBase()
                softwareGrid.EditItemIndex = -1
                Me.BindDataGrid()
            Catch eConstraint As ConstraintException
                lblMessage.Text = "A category with that ID already exists."
            End Try
        End If
    End Sub

dsSoftware.Tables("[SOFTWARE DATABASE]").Rows(E.Item.ItemIndex)