Visual Basic - Reporte en ACCESS

Hola a todos, necesito ayuda..... Tengo una serie de reportes de clientes hechos en ACCESS los cuales resultan de varias consultas... pude lograr imprimir los reportes desde mi aplicación en VB con este código....

Private Sub Command1_Click()
Dim strArchivo, _
acApp
strArchivo = "D:\Base de Datos.mdb" 'ubico la base de datos
' creo un objeto Access
Set acApp = CreateObject("Access.Application")
' puedo mostrarlo o no
acApp.Visible = True
' abro la base de datos
acApp.OpenCurrentDatabase strArchivo
' Imprimo el informe
acApp.DoCmd.OpenReport "reporte" 'tabla, reporte o informe a imprimir
' cierro y salgo
acApp.Quit
Set acApp = Nothing
End Sub

Ahora bien el problema radica que este codigo me manda a imprimir todos mis clientes y yo quiero individualizar a uno solo POR EJEMPLO POR DNI... no quiero que me mande a la impresora los 1000 clientes que pueda llegar a tener solo quiero uno solo... este reporte tiene como origen de dato una consulta e intente levantar un recordset a esa consulta y no me salio.....

Alguien puede decirme como diablos filtro un individuo de un universo de tantos tipossss en tiempo de ejecución obviamente...

Saludos a todos y muchas gracias desde ya...

Hace bastantes años trabaje con este tipode informes desde access, y creo recordar que al final de ese comando existe un parametro que equivale al WHILE del query. Le envias p.e "cliente = 1000" y solo te saca el informe del cliente que cumple dicha condicion

ya lo resolvi y muchas gracias por el dato pero lo resolvi de esta forma:::::::

Dim ret As Long
With oAccess
.OpenCurrentDatabase "direccion y nombre de BD", False
.Visible = False ' ocultar el access

Debug.Print .Name

'con acViewNormal imprime inmediatamente
'La ultima parte es un WHERE, pero sin poner la palabra WHERE
.DoCmd.OpenReport "Informe", acViewNormal, , "dni = " & nro de DNI a buscar
.CloseCurrentDatabase
End With
End Select