Ayuda: mostrar resultado consulta en una caja de texto

[Vicente]

Tengo un subformulario donde recibo una variable numérica (empresa).Ahora quiero hacer una consulta a una tabla para que según el número que tenga la variable (empresa) me saque (en una caja de texto llamada txt_emp) el nombre de la empresa cuyo identificador coincida con el valor de (empresa).

La sql se hacerla.
Como podría hacerlo en el evento load del subformulario donde de momento solo recojo el numero, de la siguiente forma;


Private Sub Form_Load()

Dim empresa As Integer

Forms!frm_empresa!IdEmpresa.SetFocus
empresa = Forms!frm_empresa!IdEmpresa.Text

txt_emp = empresa

End Sub

[Mulato]

Saludos...

Si lo que quieres es que el resultado de la consulta te salga en un texto para modificarlo y despues actualizarlo usa esto...

<input type="text" name="empresa" value='<% Response.Write result.Fields("txt_emp") %>' size="7" maxlength="7" border="0">

Aqui supongo que el name=empresa es el valor que traes desde el form anterior y txt_emp es el valor en la BD....