Visual Basic - Visual Basic 6, SQL Server 2000 y Crystal Report 8

Hola buenos días!

Tengo un pequeño problema con Programa que desarrollo en Visual Basic 6 en una BD de SQL Server 2000 y Crystal Report 8.5.

Dim sql As String
cr.ReportFileName = App.Path & "\Reportes\DistribucionSuministros3.rpt"
cr.SelectionFormula = "{AlmacenDistribucion.FechaALM}>=" & DTPfechainicio.Value & " AND {AlmacenDistribucion.FechaALM}<=" & DTPFechafin.Value & ""

cr.Action=1

El error que se me genera de aquí es el 20515 Error en Formula

También lo realizo de esta manera.

Dim sql As String
cr.ReportFileName = App.Path & "\Reportes\DistribucionSuministros3.rpt"

cr.SQLQuery = "SELECT Usuarios.IDUsuario, Usuarios.Usuario, Departamentos.Departamento, Suministros.Suministro,DistribucionALM.CantidadPedidaALM, DistribucionALM.FechaALM, DistribucionALM.HoraALM, DistribucionALM.ObservacionesALM,Departamentos.IdDep " & _
"FROM DistribucionALM INNER JOIN " & _
"Departamentos ON DistribucionALM.IDdep = Departamentos.IdDep INNER JOIN " & _
"Suministros ON DistribucionALM.IDSuministro = Suministros.IdSuministro INNER JOIN " & _
"Usuarios ON DistribucionALM.IDUsuario = Usuarios.IDUsuario " & _
"WHERE (DistribucionALM.FechaALM >= '" & DTPfechainicio.Value & "') AND (DistribucionALM.FechaALM <= '" & DTPFechafin.Value & "') AND (Departamentos.IdDep = '1')" & _
"GROUP BY Departamentos.Departamento, Suministros.Suministro, Suministros.CantidadALM, Usuarios.IDUsuario, Usuarios.Usuario,Departamentos.Departamento, Suministros.Suministro, DistribucionALM.CantidadPedidaALM, DistribucionALM.FechaALM,DistribucionALM.HoraALM, DistribucionALM.ObservacionesALM, Departamentos.IdDep"
cr.Action = 1

Se me genera un error 20534 Error de un Dll

Espero me puedan orientar

Que dice el error????

Explicalo mejor

el Action del objeto crystal es para lanzarlo a pantalla, deberias buscar ya un poco de ayuda del crviewer por que el ocx ya es obsoleto.