Problems with FIND BUTTON

[abby1]

Hi i have created an edit form in .NET however, if i enter a Head_ID in a textbox and click find then it should display the respective data in the text boxes in the form but its not displaying any data. Please help i am a new to .net and i dont have any much Knowledge of it. thanks.

the code for the find button is:

  Protected Sub FIND_Click(ByVal sender As Object, ByVal e As EventArgs) Handles FIND.Click
 
        Try
        Dim Head_ID As String = txtHeadID.Text
        Dim SubHead_ID As String = txtSubHeadID.Text
        Dim _GET_FileMaintUpdate As New Records_Mgmt_BLL.RM_FileMaint_BLL
        Dim key As DataRow = _GET_FileMaintUpdate.GET_FileMaintUpDate(Head_ID, SubHead_ID)
 
        If IsDBNull(key(1)) Then
            txtHeadID.Text = ""
        Else
            txtHeadID.Text = key(1)
        End If
 
        If IsDBNull(key(2)) Then
            txtSubHeadID.Text = ""
        Else
            txtSubHeadID.Text = key(2)
        End If
 
        If IsDBNull(key(3)) Then
            txtOldFileID.Text = ""
        Else
            txtOldFileID.Text = key(3)
        End If
 
        If IsDBNull(key(4)) Then
            txtLocationID.Text = ""
        Else
            txtLocationID.Text = key(4)
        End If
 
        If IsDBNull(key(5)) Then
            txtStatusID.Text = ""
        Else
            txtStatusID.Text = key(5)
        End If
 
        If IsDBNull(key(6)) Then
            txtVolume.Text = ""
        Else
            txtVolume.Text = key(6)
        End If
 
        If IsDBNull(key(7)) Then
            txtDateFileOpened.Text = "1/1/0001"
        Else
            txtDateFileOpened.Text = key(7)
        End If
 
        If IsDBNull(key(8)) Then
            txtRelatedTo.Text = ""
        Else
            txtRelatedTo.Text = key(8)
        End If
 
        If IsDBNull(key(9)) Then
            txtRemarks.Text = ""
        Else
            txtRemarks.Text = key(9)
        End If
 
        If IsDBNull(key(10)) Then
            txtFileDescription.Text = ""
        Else
            txtFileDescription.Text = key(10)
        End If
 
        If IsDBNull(key(11)) Then
            txtFileTypeID.Text = ""
        Else
            txtFileTypeID.Text = key(11)
        End If
 
 
        Catch ex As Exception
 
        txtHeadID.Text = ""
        txtSubHeadID.Text = ""
        txtOldFileID.Text = ""
        txtLocationID.Text = ""
        txtStatusID.Text = ""
        txtDateFileOpened.Text = ""
        txtVolume.Text = ""
        txtRelatedTo.Text = ""
        txtRemarks.Text = ""
        txtFileDescription.Text = ""
        txtFileTypeID.Text = ""
 
        End Try
 
    End Sub
End Class

[abby1]

Hi i just want to say i got through. thanks.