Veo que tienes esto en el Sub Imprimir:
Código vb:
Ver originalPrivate Sub Imprimir()
Dim RsImprimir As ADODB.Recordset
Set RsImprimir = New ADODB.Recordset
With ListView2.SelectedItem
RsImprimir.Open "SELECT * FROM Asignado WHERE ID = " & ListView2.SelectedItem.Textcnn, adOpenDynamic, adLockBatchOptimistic
DataReport3.Show 1
End With
End Sub
Debe ser algo asi:
Código vb:
Ver originalDim RsImprimir As ADODB.Recordset
Set RsImprimir = New ADODB.Recordset
'CARGAS EL RECORDSET
With ListView2.SelectedItem
RsImprimir.Open "SELECT * FROM Asignado WHERE ID = " & ListView2.SelectedItem.Text, cnn, adOpenDynamic, adLockBatchOptimistic
'ASIGNAS EL RECORDSET AL DATA REPORT
With DataReport3
Set .DataSource = Nothing
.DataMember = ""
Set .DataSource = RsImprimir.DataSource
End With
'MUESTRAS EL DATA REPORT
DataReport3.Show 1
End With 'Fin del [With ListView2.SelectedItem]
Intenta a ver...