There is no row at position 0.

Dear Coders,

Please Help,

The code is below. When executing it works fine. but when exiting the program the Following Error Occurs. "There is no row at position 0"
Please Help.

Private Sub Mat_Sub_NoComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mat_Sub_NoComboBox.SelectedIndexChanged

    TextBox1.Text = Mat_Sub_NoComboBox.SelectedValue

    con.ConnectionString = myconstring

    'Fetch Project_id to textbox
    Dim Prjda As New SqlDataAdapter("SELECT trade FROM Mat_e1_prj where mat_sub_no='" + Mat_Sub_NoComboBox.SelectedValue + "'", con)
    Dim Prjdt As New DataTable
    Prjda.Fill(Prjdt)
    Project_IDTextBox.Text = Prjdt.Rows(0).Item("Trade")

Tags: Visual Basic, Visual Studio