DataReport - DataEnviroment y Listview

[lokoman]

Hola!!
Tienes todo pegado en:

Código vb:

ListView2.SelectedItem.Textcnn, adOpenDynamic, adLockBatchOptimistic
 

Debe ser:

Código vb:

ListView2.SelectedItem.Text, cnn, adOpenDynamic, adLockBatchOptimistic
 

Para este caso el campo ID es numerico, si es caracter debe ser:

Código vb:

...ID='" & ListView2.SelectedItem.Text & "'", cnn, adOpenDynamic, adLockBatchOptimistic