Como mostrar registros de un Recordset
Tengo un formulario donde recojo una fecha y cargo los registros de una BBDD que cumplen esa condición en un Recordset (a través de una sentencia Select):
Dim xconexion As New ADODB.Connection
Dim xcomando As New ADODB.Command
Dim rs As New ADODB.Recordset
Set xconexion = CurrentProject.Connection
Set xcomando.ActiveConnection = xconexion
xcomando.CommandText = "SELECT [NIF], [APELLIDOS], [NOMBRE], [fecha] FROM [Todos los datos] WHERE [FECHA]= " & "#" & xfecha & "#"
rs.Open xcomando, , adOpenDynamic, adLockOptimistic
Mi problema es que una vez que tengo ahí los registros no se como mostrarlos todos tipo tabla.. En principio puse un subformulario para mostrarlos, y recorriendo el recordset iba copiando los datos de cada campo en cuadros de texto del subformulario, pero de esta manera solo me mostraba el ultimo registro:
rs.MoveFirst
Do Until rs.EO
subdatos.Form!fdni = rs!NIF
rs.MoveNext
Loop
Luego he visto que se puede asignar un Recordset a un subformulario, pero me da un error "EL OBJETO ESPECIFICADO NO ES UNA PROPIEDAD RECORDSET VALIDA"
Set Me.subdatos.Form.Recordset = rs ("subdatos" es el subformulario y "rs" el recordset)
El Objeto Origen del Subformulario es un formulario que he creado con los textbox independientes.
En fin, a ver si puedes orientarme...