Hi,

I try this new code, but olso not working,
i dont get the textbox fill
Thas anybody nows the answer
Code:
Try

            Dim strSQL As String = "Select * From Grondstof"
            Dim strConnectionString As String = My.Settings.grondstoffenConnectionString()

            Dim objConnection As New SqlConnection(strConnectionString)
            Dim objCommand As New SqlCommand(strSQL, objConnection)

            objCommand.Connection.Open()

            Dim objDataReader As SqlDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)

            ComboBox1.Items.Clear()
            ComboBox2.Items.Clear()
            ComboBox3.Items.Clear()
            ComboBox4.Items.Clear()
            ComboBox5.Items.Clear()
            ComboBox1.Items.Insert(0, "maak keuze")
            ComboBox2.Items.Insert(0, "maak keuze")
            ComboBox3.Items.Insert(0, "maak keuze")
            ComboBox4.Items.Insert(0, "maak keuze")
            ComboBox5.Items.Insert(0, "maak keuze")


            While objDataReader.Read
                Debug.Print(objDataReader("Vleessoort").ToString)
                ComboBox1.Items.Add(objDataReader("Vleessoort").ToString) 'this is the meat
                ComboBox2.Items.Add(objDataReader("Vleessoort").ToString)
                ComboBox3.Items.Add(objDataReader("Vleessoort").ToString)
                ComboBox4.Items.Add(objDataReader("Vleessoort").ToString)
                ComboBox5.Items.Add(objDataReader("Vleessoort").ToString)

            End While

            Me.ComboBox1.SelectedIndex = 0
            Me.ComboBox2.SelectedIndex = 0
            Me.ComboBox3.SelectedIndex = 0
            Me.ComboBox4.SelectedIndex = 0
            Me.ComboBox5.SelectedIndex = 0

            Dim mijnDataSet As DataSet
            Dim mijnDataAdapter As SqlDataAdapter

            mijnDataAdapter = New SqlDataAdapter(strSQL, strConnectionString)
            mijnDataSet = New DataSet

            mijnDataAdapter.Fill(mijnDataSet)

            ComboBox1.DataSource = mijnDataSet.Tables(0)
            ComboBox1.ValueMember = "Grondstof" 'database for combobox
            ComboBox1.DisplayMember = "Prijs" 'price for textbox

            objDataReader.Close()

        Catch ex As Exception
            MessageBox.Show("Fout opgetreden: " & ex.Message.ToString)

        Finally

        End Try

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex <> 0 Then
            txtPrijs.Text = ComboBox1.SelectedValue
        End If
    End Sub