VB 6, Sql Server 2000 y Crystal Report 8.5

Vladimir Angarita
09 de Marzo del 2006
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