This is my query you want to know how to pass each field to the textbox
Dim query = From Q In Ejecutarconsulta("Select * from secreg where tabla='" _
+ tabla.Trim() + "' and codempresa='01'" ).AsEnumerable()
Select New With {.tabla = Q.Field(Of String)("Tabla").Trim(),
.Secuencia = Q.Field(Of String)("Secuencia").Trim(),
.Letra = Q.Field(Of String)("Secuencia").Trim()}