Ayuda para mostrar campos en un subformulario

[david201068]

Amigos, tengo en access 2003 un formulario llamado form1 con un textbox donde ingreso un dato a buscar y deseo que en un subformulario (BaseEECC) me muestre los datos encontrados, pero tengo problemas en la estructura de la asignacion de los campos encontrados, se que me estoy equivocando en la sintaxis.

Aqui el codigo

Private Sub txtnro_Exit(Cancel As Integer)
Dim db As Database
Dim sql As Recordset

Set db = CurrentDb

Set sql = db.OpenRecordset("select * from BaseEECC where nro = '" & txtnro.Text & "'")

If sql.EOF = True Then
MsgBox ("no existe")
Else
Form!Form1!BaseEECC.Form.txtnum = sql.Fields("nro")
End If
End Sub

Gracias por su pronta ayuda