Salu2 Kurt
Ya entiendo lo que me dices, bien pues tu codigo esta bien solo falta unos retoques man veamos... (dijo un ciego XDDD

)
Tenemos:
TABLA : Materiales
CAMPOS : CodMat, NombreMat
Tu buscas el codigo en el campo CodMat p.e. 471 y este debe devolverte el nombre del material. supongamos "Material XXX", es decir si el registro es asi:
TABLA: Materiales
----------------------------------------
CodMat | NombreMat
----------------------------------------
471 Material XXX <--------- Este es el registro encontrado
472 Material YYY
----------------------------------------
Seria asi:
Private Sub Text1_Keypress(Keyascii as Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
nReg = Val(Text1)
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "CodigoMat = '" & Text1.Text & "'"
Text4.SetFocus
If Data1.Recordset.NoMatch Then
MsgBox "La clave del material no existe", 64, "Información al usuario"
Text1.SetFocus
End If
End If
End if
End sub
Eso siempre que tus campos esten Enlazados a los textbox de tu form
Sino debes pasar el contenido del data a los textbox.
Espero te ayude a resolver el problema.
Un saludo zeekel ®
[KGT]
PD: Si gustas podemos contactarnos por msn: mi msn es
multiprocess@lycos.es