Visual Basic - gran problema datareport

Gracias a los dos, pero con ninguna de las dos soluciones que me planteais he conseguido arreglarlo.
Seguire intentándolo...

Mira esté código y estudiate las secciones del informe saludos.

Tabla = "select Datos.Cod_Accion as 'Código de Acción',Datos.Cod_Socio as 'Código de Socio' ,Max(Datos.Fecha) as Fecha From Datos" & Control.LocalHostName & " Datos Inner Join Accion on Datos.Cod_Socio=Accion.Cod_Socio Inner Join datos_socios Clientes on Datos.Cod_Socio=Clientes.Codigo_Cliente Inner Join Cobrador on Clientes.Id_Cobrador=Cobrador.Id_Cobrador Where Accion.Accion='" & Accion & "' And Cobrador.Apellido_Cob='" & Cobrador & "' Group By Datos.Cod_Accion ,Datos.Cod_Socio"
Set Rs = New ADODB.Recordset
Rs.Open Tabla, Cn2, adOpenStatic, adLockReadOnly
If Rs.RecordCount > 0 Then
Set DataAccion.DataSource = Rs
With DataAccion.Sections("Sección1").Controls
.Item("TextAccion").DataField = "Código de Acción"
.Item("TextSocio").DataField = "Código de Socio"
.Item("TextFecha").DataField = "Fecha"
End With
With DataAccion.Sections("Sección4").Controls
.Item("LblTitulo").Caption = Accion
End With
If MsgBox("¿Desea ver los Datos x Pantalla?", vbInformation + vbYesNo, "Sistemas") = vbYes Then
DataAccion.Show vbModal
Else
DataAccion.PrintReport
End If
Else
MsgBox "No Hay Datos para Imprimir", vbInformation, "Sistemas"
End If
Tabla = ""
Set Rs.DataSource = Nothing

¿Cual es el "gran problema"? ¿Que dos soluciones te planteamos?
¡No entiendo nada, pero puedes seguir intentandolo....!
Seguro que lo consigues ¡animo!!!!!

Joer me confundí al enviar el mensaje, el "bueno" está un poco más abajo...