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...