Agregar datos de una BD a varios TextBox

[SlayerBur]

Buen día.
Tengo una duda, que sería como hago para cargar varios datos de una Base de Datos a TextBox. Mi codigo es este, a veces funciona y a veces no, ni idea 

Código [Seleccionar] Expandir

        LblNombreLibro.Text = "Estanteria: " & Inicio.TxtBuscarLibro.Text.Trim & ""

        Dim Libross = "Matematicas2"
        CargaraTextBox("Select Libros From RoperoMio where Libro = '" & Libross & "'", TxtRec1)

es un simple buscador de todos los libros que tengo en mi casa, tengo una estanteria grande y a la hora de comprar un nuevo libro, quiero facilitarme la busqueda