Esta es mi consulta quieresa saber como pasar cada campo a los 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()}