Rellenar campos a partir de consulta SQL después de seleccionar en listbox

[gnzsoloyo]

En primer lugar, no uses nombres de clases para crear variables u objetos. DataTable es una clase que define una tabla de datos. No se debe usar para lo que figura en tu código.
Es lo que se denomina palabra reservada.

En segundo lugar, cuando vayas a usar un objeto en varios métodos de un form, debes usar objetos de clase y no de método. Si defines una variable dentro de un método, morirá cuando se termine de ejecutar el método (problema de la POO).
Para que puedas acceder en todo el Form, deben estar definidos fuera de cualquier método
En tu ejemplo:

Código vb.net:

Dim conexion As SQLite.SQLiteConnection
Dim Table As DataTable
Dim Adapter As SQLiteDataAdapter
 
    Private Sub btnInicioBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInicioBuscar.Click
 
        '************************************************************************************
        '*   ESTADO: FUNCIONA                                                               *
        '*   Objeto: btnInicioBuscar                                                        *
        '*   Función: Busca la cadena de texto del textbox (tbInicioBuscar) en la base de   *
        '*              datos y devuelve en el ListBox (lbInicioClientes) los resultados    *
        '*                                                                                  *
        '*   Versión: v1.0   07 Feb 2010   xxxxxxxxxxxxxxxxxxxxxxx ([email protected])     *
        '*   Versión: v2.0   18 Feb 2010   xxxxxxxxxxxxxxxxxxxxxxx ([email protected])     *
        '*                                                                                  *
        '************************************************************************************
 
        ''Creamos la conexión a la base de datos definida como datasource en Settings
        conexion = New SQLite.SQLiteConnection(My.Settings.origConnectionString)
        'Declaramos el DataTable que contendrá los datos.
        Table = New DataTable
        'declaramos el DataAdapter y lo llenamos con la consulta
        Adapter = New SQLiteDataAdapter("SELECT * FROM CLIENTES WHERE nombre LIKE '%" & tbInicioBuscar.Text & "%' OR apellido1 LIKE '%" & tbInicioBuscar.Text & "%' OR apellido2 LIKE '%" & tbInicioBuscar.Text & "%' ORDER BY nombre", conexion)
        'rellenamos el DataTable
        Adapter.Fill(Table)
 
        'Vaciamos el Listbox antes de llenarlo
        lbInicioClientes.Items.Clear()
 
        'Llenamos el listBox (lbInicioClientes)
        Dim i As Integer
        For i = 0 To Table.Rows.Count - 1
            lbInicioClientes.Items.Add(Table.Rows(i).Item("nombre") & " " & Table.Rows(i).Item("apellido1") & " " & Table.Rows(i).Item("apellido2"))
        Next
 
    End Sub
 

Entonces será accesible por fuera.