Visual Basic - GRACIAS NUEVO =)

Hola nuevo muchas gracias, le he agregado el detallito siguiente (.MoveNext) y si funciona a la perfeccion =) ...

Private Sub Texto38_GotFocus()

Dim sql As Database
Dim tabla As Recordset
Dim strSQL As String
Dim strPalabrabuscada As String

strPalabrabuscada = NBUSCA

Set sql = DBEngine.OpenDatabase("E:\PROYECTO.mdb")
strSQL = "SELECT * FROM Tubular where Tubular.no_ensamble like '*" & strPalabrabuscada & "*'"
Set tabla = sql.OpenRecordset(strSQL, dbOpenDynaset)
With tabla
.MoveNext
Texto38.Text = IIf(IsNull(tabla.Fields("AQMTLP")), "", (tabla("AQMTLP")))
End With

End sub


Ahora, de que manera le haria para no poner todo ese codigo en cada uno de los cuadros de texto ??, porque como ya comente hay unos numeros de parte que llegan a tener 30 componentes... y pues serian 30 cuadros de texto.