BUSQUEDA DE REGISTROS EN VB.NET Y SQL - CONSULTA

CONSULTA-BUSQUEDA DE REGISTROS

Codigo:

Imports System.ComponentModel

Imports System.Data

Imports System.Data.OleDb

Imports System.Data.SqlClient

Public Class FORM1

    Public CONEXION As New OleDbConnection("PROVIDER=SQLOLEDB;" &

                               "DATA SOURCE=NOMBRE DEL SERVIDOR;" &

                                "INITIAL CATALOG=BASE DE DATOS;" &

                                "USER ID=USUARIO;PASSWORD=CLAVE")

    Dim SQL As String

    Public ORDEN_BD As OleDb.OleDbCommand

    Private D_TABLE As DataTable

    Private D_ADAPTER As OleDbDataAdapter

    Dim SELECCION As String

    Sub CONSULTA()

        CONEXION.Open()

        If SELECCION <> "TODOS" Then

            SQL = "SELECT * FROM TABLA WHERE " & COMBOBOX1.TEXT & " LIKE '" & SELECCION & "' ORDER BY CAMPO"

        Else

            SQL = "SELECT * FROM TABLA ORDER BY CAMPO"

        End If

        ORDEN_BD = New OleDb.OleDbCommand(SQL, CONEXION)

        ORDEN_BD.CommandType = CommandType.Text

        ORDEN_BD.ExecuteNonQuery()

        REM CIERRO LA CONEXION

        D_ADAPTER = New OleDbDataAdapter(ORDEN_BD)

        D_TABLE = New DataTable

        D_ADAPTER.Fill(D_TABLE)

        DataGridView1.DataSource = D_TABLE

        Try

            TextBox1.Text = D_TABLE.Rows(0)("ID")

            TextBox2.Text = D_TABLE.Rows(0)("NOMBRE")

            TextBox3.Text = D_TABLE.Rows(0)("APELLIDO")

            TextBox4.Text = D_TABLE.Rows(0)("CI")

        Catch EX As Exception

            MessageBox.Show(EX.Message)

        End Try

        CONEXION.Close()

    End Sub

'TEXTBOX1:

SELECCION = TEXTBOX1.TEXT

SELECCION = "%" & SELECCION & "%"

Call CONSULTA()

'BOTON TODOS:

SELECCION = "TODOS"

Call CONSULTA()

End Class