Search Specific Data to Delete

============================
CODE
============================

'To SEARCH SPECIFIC DATA TO DELETE
    Public Sub searchdataforDelete()
        con.Open()

        Dim dt As New DataTable("Table1")
        Dim rs As New OleDb.OleDbDataAdapter("Select * from Table1 where EmpIdno= '" & _
                                        Form4.txtsearchEmpIdno.Text & "'or FirstName = '" & _
                                             Form4.txtsearchFirstName.Text & "' or LastName = '" & _
                                            Form4.txtsearchlastName.Text & "'", con)

        rs.Fill(dt)
        DataGridView1.DataSource = dt

        DataGridView1.Refresh()
        Label1.Text = dt.Rows.Count
        rs.Dispose()
        con.Close()

        Dim i As Integer

        If Val(Label1.Text) = 1 Then

            i = DataGridView1.CurrentRow.Index
            txtempidno.Text = DataGridView1.Item(0, i).Value
            txtfirstname.Text = DataGridView1.Item(1, i).Value
            txtmiddlename.Text = DataGridView1.Item(2, i).Value
            txtlastname.Text = DataGridView1.Item(3, i).Value
            DateTimePicker1.Text = DataGridView1.Item(4, i).Value
            txtage.Text = DataGridView1.Item(5, i).Value
            cmbgender.Text = DataGridView1.Item(6, i).Value
            txtstreetbaranggay.Text = DataGridView1.Item(7, i).Value
            txtcity.Text = DataGridView1.Item(8, i).Value
            txtprovince.Text = DataGridView1.Item(9, i).Value
            txtpostalcode.Text = DataGridView1.Item(10, i).Value
            txtjobposition.Text = DataGridView1.Item(11, i).Value
            txtsalary.Text = DataGridView1.Item(12, i).Value
            txtdeductions.Text = DataGridView1.Item(13, i).Value
            txtbonus.Text = DataGridView1.Item(14, i).Value
            txtgrosssalary.Text = DataGridView1.Item(15, i).Value
            txtnetpay.Text = DataGridView1.Item(16, i).Value
        End If

        Dim Empty As String

        Empty = DataGridView1.Item(0, i).Value
        If Empty = "" Then
            txtempidno.Text = ""
            txtfirstname.Text = ""
            txtmiddlename.Text = ""
            txtlastname.Text = ""
            DateTimePicker1.Text = ""
            txtage.Text = ""
            cmbgender.Text = ""
            txtstreetbaranggay.Text = ""
            txtcity.Text = ""
            txtprovince.Text = ""
            txtpostalcode.Text = ""
            txtjobposition.Text = ""
            txtsalary.Text = ""
            txtdeductions.Text = ""
            txtbonus.Text = ""
            txtgrosssalary.Text = ""
            txtnetpay.Text = ""
        End If


    End Sub