[ali_ahmed12]

السلام عليكم 
قمت بملي combobox بالبيانات 
يظهر خطا ما الحل هدا كود مرفق 

كود :

Sub fill_combo_serves()
       dt.Clear()
       quary = "select *from table_game"
       da = New SqlDataAdapter(quary, Module1.con)
       da.Fill(dt)
       ComboBox1.DataSource = dt
       ComboBox1.DisplayMember = "g_name"
       ComboBox1.ValueMember = "id_g"
       ComboBox1.SelectedValue = -1
   End Sub

وهدا في زر 

كود :

Dim dt As New DataTable
       Try
           quary = "select * from table_game where id_g ='" & ComboBox1.SelectedValue & "' "
           da = New SqlDataAdapter(quary, Module1.con)
           da.Fill(dt)
           TextBox5.Text = dt.Rows(0)(3)

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

يظهر هدا خطا في صورة موضح