Visual Basic - necesito imprimir un solo registro con data report

hola a todos!!!
necesito que alguien me ayude mi problema es que no se impirmir un solo registro con datareport, me los muestra todos siempre.
estoy trabajando con 2 tablas un encabezado y el datelle, en el reporte muestra todo bien, cada detalle con su encabezado, pero los muestra todos...
por favor si alguien me puede ayudar, lo necesito!!!

ai te dejo este codigo:
espero te ayude sin problemas

Set conex = New ADODB.Connection
Set record = New ADODB.Recordset
cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Jet OLEDB:Database Password=7967934"

conex.ConnectionString = cadena
conex.Open cadena

'SI DESEAS OBTENER UN REGISTRO EN ESPECIAL DEBES CAMBIAR EL COMANDO SQL

record.LockType = adLockOptimistic
record.CursorLocation = adUseClient
record.CursorType = adOpenDynamic
record.Open sql, conex
'AQUI SE ASIGNA EL DATA SOURCE DEL RECORDSET AL DATA SOURCE DEL DATAREPORT
With DataReport1
Set .DataSource = Nothing
.DataMember = ""
Set .DataSource = record.DataSource
'AQUI SE HACE REFERENCIA A LAS CASILLAS DE TEXTO DEL DATAREPORT
'Y SE LES ASIGNA UN CAMPO A CADA UNA PROVENIENTE DEL RECORDSET
For i = 1 To 6
If i = 1 Then a = 1
If i = 2 Then a = 2
If i = 3 Then a = 4
If i = 4 Then a = 5
If i = 5 Then a = 7
If i = 6 Then a = 10

.Sections("Sección1").Controls.Item(i).DataMember = ""
.Sections("Sección1").Controls.Item(i).DataField = record.Fields(a).Name
Next i
End With
DataReport1.Show

Hola, utiliza filtros de variables para que solo te muestre el dato que requieres
suete :) xD

Hola, utiliza filtros de variables para que solo te muestre el dato que requieres
suete :) xD