Listbox.SelectedItem

Dim KlantSelecteren As String = lstZoekResultaten_Opdrachten.SelectedItem.ToString()
        If KlantSelecteren Then
            Dim Klantgegevens_ophalen As String = "SELECT Klanten.Bedrijfsnaam, Klanten.Contactpersoon, Klanten.Adres, Klanten.Postcode, Klanten.Plaats, Klanten.Telefoonnummer, Klanten.Emailadres WHERE '" & txtBedrijfsnaam_Opdrachten.Text & "' = Klanten.Bedrijfsnaam, '" & txtContactpersoon.Text & "' = Klanten.Contactpersoon, '" & txtadres_Opdrachten.Text & "' = Klanten.Adres, '" & txtPostcode_Opdrachten.Text & "' = Klanten.Postcode, '" & txtPlaats_Opdrachten.Text & "' = Klanten.Plaats, '" & txtTelefoonnummer.Text & "' = Klanten.Telefoonnummer, '" & txtEmailadres.Text & "' = Klanten.Emailadres"
End If

Dim KlantSelecteren As String = lstZoekResultaten_Opdrachten.SelectedItem.ToString()
        If KlantSelecteren Then
            Dim Klantgegevens_ophalen As String = "SELECT Klanten.Bedrijfsnaam, Klanten.Contactpersoon, Klanten.Adres, Klanten.Postcode, Klanten.Plaats, Klanten.Telefoonnummer, Klanten.Emailadres WHERE '" & txtBedrijfsnaam_Opdrachten.Text & "' = Klanten.Bedrijfsnaam, '" & txtContactpersoon.Text & "' = Klanten.Contactpersoon, '" & txtadres_Opdrachten.Text & "' = Klanten.Adres, '" & txtPostcode_Opdrachten.Text & "' = Klanten.Postcode, '" & txtPlaats_Opdrachten.Text & "' = Klanten.Plaats, '" & txtTelefoonnummer.Text & "' = Klanten.Telefoonnummer, '" & txtEmailadres.Text & "' = Klanten.Emailadres"
End If

Dim myConn As New OleDb.OleDbConnection("CONNECTIONSTRING")
Dim myComm As OleDb.OleDbCommand
Dim myReader As OleDb.OleDbDataReader
Dim strQuery As String = ""

If Not String.IsNullOrEmpty(ListBox1.SelectedItem.ToString()) Then
    strQuery = "SELECT ... " & ListBox1.SelectedItem.ToString()
    'QUERY VERDER AANPASSEN
End If
myComm = New OleDb.OleDbCommand(strQuery, myConn)
        
Try
    myConn.Open()
    myReader = myComm.ExecuteReader()
    If myReader.Read() Then
        TextBox1.Text = myReader.GetValue(0).ToString()
        TextBox2.Text = myReader.GetValue(1).ToString()
        '...
    Else
        'FOUTMELDING
    End If
    myReader.Close()
Catch ex As Exception
    MessageBox.Show(ex.Message)
Finally
    myConn.Close()
End Try

Dim myConn As New OleDb.OleDbConnection("CONNECTIONSTRING")
Dim myComm As OleDb.OleDbCommand
Dim myReader As OleDb.OleDbDataReader
Dim strQuery As String = ""
 
If Not String.IsNullOrEmpty(ListBox1.SelectedItem.ToString()) Then
    strQuery = "SELECT ... " & ListBox1.SelectedItem.ToString()
    'QUERY VERDER AANPASSEN
End If
myComm = New OleDb.OleDbCommand(strQuery, myConn)
 
Try
    myConn.Open()
    myReader = myComm.ExecuteReader()
    If myReader.Read() Then
        TextBox1.Text = myReader.GetValue(0).ToString()
        TextBox2.Text = myReader.GetValue(1).ToString()
        '...
    Else
        'FOUTMELDING
    End If
    myReader.Close()
Catch ex As Exception
    MessageBox.Show(ex.Message)
Finally
    myConn.Close()
End Try