Visual Basic.NET - Filtro de datos de una tabla de SQL SERVER

Imports System.Data.SqlClient

Public Class Formulario

    Dim texto As String

    Private Sub listacampos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles listacampos.SelectedIndexChanged

        Lblresultado.Text = listacampos.SelectedItem.ToString

    End Sub

    Private Sub listaoperadores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles listaoperadores.SelectedIndexChanged

        Lblresultado.Text = Lblresultado.Text & listaoperadores.SelectedItem.ToString

        texto = Lblresultado.Text

    End Sub

    Private Sub botonfiltrar_Click(sender As Object, e As EventArgs) Handles botonfiltrar.Click

        Dim conexion As String

        conexion = "Data Source=NANO-HPDV6\SQLEXPRESS;Initial Catalog=Blacksense;Integrated Security=True"

        Dim nombre_campo As String = listacampos.SelectedItem.ToString

        Dim valoroperador As String = listaoperadores.SelectedItem.ToString

        Dim clave = valorcampo.Text

        Dim seleccion As String = "SELECT * FROM socios where" + nombre_campo + "" + valoroperador + "" + clave + ""

        Dim adaptador As SqlDataAdapter

        Dim tabladedatos As New DataTable

        Dim tabla As New BindingSource

        Try

            adaptador = New SqlDataAdapter(seleccion, conexion)

            adaptador.Fill(tabladedatos)

            tabla.DataSource = tabladedatos

        Catch ex As Exception

            MsgBox("Error:" & ex.Message)

        End Try

    End Sub

End Class