Hola Vic, perdon por tardar en responder sabes la celebracion por el dia del Programador y del Trabajador se prolongo... Salud!!!
Oh perdon ...Kise decir
Saludos
'//Este codigo esta dentro del DataReport
Public Sub CargaDatos(ByVal pAdoReco As ADODB.Recordset)
'//Metodo publico declarado
On Error Resume Next
If pAdoReco Is Nothing Then Exit Sub
pAdoReco.MoveFirst
Set dtrClientes.DataSource = pAdoReco
pAdoReco.MoveFirst
'//Esta etiqueta se encuentra en la parte Titulo de mi DataReport
dtrClientes.Sections("TInforme").Controls("lblNumReg").Caption = CStr(pAdoReco.RecordCount)
'//Estas etiquetas se encuentra en la parte Detalle de mi DataReport
dtrClientes.Sections("Detalle").Controls("txtCodigo").DataField = "Codigo"
dtrClientes.Sections("Detalle").Controls("txtNombre").DataField = "Nombre o Razon Social"
dtrClientes.Sections("Detalle").Controls("txtRuc").DataField = "Ruc"
dtrClientes.Sections("Detalle").Controls("txtTelefono1").DataField = "Telefono 1"
dtrClientes.Sections("Detalle").Controls("txtTelefono2").DataField = "Telefono 2"
dtrClientes.Sections("Detalle").Controls("txtDireccion").DataField = "Direccion"
dtrClientes.Sections("Detalle").Controls("txtEmail").DataField = "E-Mail"
dtrClientes.Show
End Sub
'//Y nos toca invocar a nuestro DataReport
'//Previamente debemos generar una consulta o instruccion SQL y crear nuestro RecordSet, claro esta, a nuestro antojo
Private Sub cmdVerReport