error de parametros

[maroto1970]

Hola.
dos preguntas haber si me las podeis responder.

1ª pregunta. ejecuto un programa y me da este error al hacer una consulta

error '3061' en tiempo de ejecucción.
pocos parámetros. Se esperaba 1

y la linea donde me dá tengo escrito el siguiente código.
Set Mirecordset = MiBasedatos.OpenRecordset("Select a_nif, a_conta, a_dia, a_mes, a_año, a_totcob from BDfacta Where a_dni = ' " & txt_dni & " ' ", dbOpenDynaset)

2º pregunta
quiero hacer una carga en un msflexgrid de unos datos. y estoy abriendo la base de datos por programa, pero en el formulario he puesto un objeto DATA.
y en el programa lo hago de la siguiente forma. (no se si esta bien, decidmelo). Pero no me muestra los datos en el msflexgrid.


Dim MiBasedatos As Database
Dim Misesion As Workspace
Dim Mirecordset As Recordset

Set Misesion = Workspaces(0)
Set MiBasedatos = Misesion.OpenDatabase("C:\Miriam\Datos\BDmiriam.md b")

Set Mirecordset = MiBasedatos.OpenRecordset("Select a_nif, a_conta, a_dia, a_mes, a_año, a_totcob from BDfacta Where a_dni = '" & txt_dni & "'", dbOpenDynaset)

en las propiedades del msflexgrid he puesto el DataSource asociado al objeto data

por favor ayudameeeee, gracias a todos/as.