Ich sehe viele der Antworten auf ähnliche Fragen, bei denen Leute sagen, dass Sie @ verwenden müssen, um den Wert des in die Combobox geladenen Elements zu ermittel

  combobox1.displayMamer =""
  combobox1.valuemember=""
  combobox1.datasource=""

Aber dieses Zeug funktioniert nicht .....

hier ist was ich habe ....

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Using con As New SqlConnection(sConnection)
        con.Open()
        Using com As New SqlCommand("Select Code1, Code2 from  tblTable6 where fldname ='Things'", con)
            Using rdr = com.ExecuteReader
                If rdr.HasRows Then
                    Do While rdr.Read = True
                        ComboBox1.Items.Add(rdr.GetString(0))
                        ''''missing something here
                    Loop
                    con.Close()
                End If
            End Using
        End Using
    End Using
End Sub

Ich wähle Code1 und Code2 aus der Tabelle aus. Ich möchte Code1 anzeigen können. Wenn diese Option ausgewählt ist, möchte ich den Wert von Code2 haben. Bei displayMember und ValueMember wird jedoch kein Ergebnis angezeigt.

EDIT: Hier ist mein gesamter Code:

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Using con As New SqlConnection(sConnection)

        Using com As New SqlCommand("Select Label, Code from Table.....", con)
            con.Open()
            Dim dt As New DataTable()
            Dim rows = dt.Load(com.ExecuteReader)
            ComboBox1.DataSource = dt
            ComboBox1.DisplayMember = "Code"
            ComboBox1.ValueMember = "Label"
            con.Close()
        End Using
    End Using

End Sub

Dim rows = dt.Load (com.ExecuteReader) --- diese Zeile wird unterstrichen

FEHLER sagt: Ausdruck erzeugt keinen Wert

EDIT2:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Using con As New SqlConnection(sConnection)
        con.Open()
        Using com As New SqlCommand("Select Label, Code from  tblData where fldname ='M'", con)

            Dim dt As New DataTable()
            ComboBox1.DataSource = dt
            ComboBox1.DisplayMember = "Code"
            ComboBox1.ValueMember = "Label"
            con.Close()
        End Using
    End Using

End Sub

Now Ich erhalte einen weiteren Fehler, der besagt, dass: Kann nicht an das neue Wertelement binden. Dies geschieht auf combobox1.valuemember = "Label"