[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

جرّب بهذا الشّكل أخي الكريم

كود :

   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       If Me.ComboBox1.Text = String.Empty Then
           Me.TextBox1.Text = String.Empty
       End If
       Try
           Dim Cmd As SqlCommand = New SqlCommand()
           Dim Rreader As SqlDataReader = Nothing
           If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
           Conne_2019.Open()
           Dim Qquery As String = " SELECT * From Table1 Where Field_Name = '" & ComboBox1.Text.Trim & "'"
           Cmd = New SqlCommand(Qquery, Conne_2019)
           Rreader = Cmd.ExecuteReader()
           While Rreader.Read
               If Rreader IsNot Nothing Then
                   Me.TextBox1.Text = Rreader.Item("Field_Job")
               End If
           End While
           If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
       Catch ex As Exception
           MessageBox.Show("خطأ غير معيّن أثناء عملية الإستعلام" & ex.ToString & vbCrLf)
       End Try
   End Sub

تحياتي