Private Sub msk_fim_LostFocus()

If msk_fim.Text = "" Then
    msg = MsgBox("O Campo Data Fim Está em Branco.", vbCritical, "CDESP - Campo em Branco")
    msk_inicio.SetFocus
Else
    
    Dim SqlGrupoRec As String 'Agrupado por grupo e recurso
    Dim SqlSemRec As String 'Agrupado sem recurso
    Dim SqlComRecCodDen As String 'Com recurso - código e denominação
    Dim SqlDespTecAut As String 'Desperdicio técnico automático
        
    Set RsGrupoRec = New ADODB.Recordset 'Agrupado por grupo e recurso
    Set RsSemRec = New ADODB.Recordset 'Agrupado sem recurso
    Set rsComRecCodDen = New ADODB.Recordset 'Com recurso - código e denominação
    Set rsDespTecAut = New ADODB.Recordset 'Desperdicio técnico automático
    
    'Agrupado por grupo e recurso
    SqlGrupoRec = "select c.usr_grupomaq,month(d.dtproducao) as Mes,year(d.dtproducao) as ano,sum(d.usr_perdaoperacional) As desperdicio_kg from codigosapontamento b, recursos c,View_Usr_QtdProduzidoKG d where b.classificacao in ('DOPE','DTEC','DEXC','DEMB','DMOV') and d.codapont=b.codapont and c.codrecurso=d.codrecurso and d.codrecurso<>'APARA' and d.dtproducao between '" & Format(CDate(msk_inicio.Text), "yyyy/mm/dd") & "' and '" & Format(CDate(msk_fim.Text), "yyyy/mm/dd") & "' group by c.usr_grupomaq, month(d.dtproducao),year (d.dtproducao) order by c.usr_grupomaq"
   
    'Agrupado sem recurso
    SqlSemRec = "select c.usr_grupomaq,b.classificacao,month(d.dtproducao) as Mes,year(d.dtproducao) as ano,sum(d.usr_perdaoperacional) As desperdicio_kg from    codigosapontamento b,   recursos c,View_Usr_QtdProduzidoKG d where    b.classificacao in ('DOPE','DTEC','DEXC','DEMB','DMOV')   and d.codapont=b.codapont and c.codrecurso=d.codrecurso   and d.codrecurso<>'APARA' and d.dtproducao between '" & Format(CDate(msk_inicio.Text), "yyyy/mm/dd") & "' and '" & Format(CDate(msk_fim.Text), "yyyy/mm/dd") & "' Group By c.usr_grupomaq, b.classificacao, month(d.dtproducao), year (d.dtproducao) Order By c.usr_grupomaq, b.classificacao"
   
    'Com recurso - código e denominação
    SqlComRecCodDen = "select d.codrecurso, c.descricao, c.usr_grupomaq, b.classificacao, month(d.dtproducao) as Mes, year(d.dtproducao) as ano, sum(d.usr_perdaoperacional) As desperdicio_kg from    codigosapontamento b,   recursos c, View_Usr_QtdProduzidoKG d where    b.classificacao in ('DOPE','DTEC','DEXC','DEMB','DMOV')   and d.codapont=b.codapont and c.codrecurso=d.codrecurso   and d.codrecurso<>'APARA' and d.dtproducao between '" & Format(CDate(msk_inicio.Text), "yyyy/mm/dd") & "' and '" & Format(CDate(msk_fim.Text), "yyyy/mm/dd") & "' Group By c.usr_grupomaq, b.classificacao, d.codrecurso, c.descricao, month(d.dtproducao), year (d.dtproducao) Order By c.usr_grupomaq, d.codrecurso, b.classificacao"
    
    'Desperdício técnico automático
    SqlDespTecAut = "select b.usr_grupomaq, month(a.dtproducao) mes, year(a.dtproducao) ano, 'DTEC-AUTOM' as classificacao, sum(a.perdatecnica) As desperdicio_kg from view_usr_apontar_kg a, recursos b where a.codrecurso not in ('APARA','EXP','SL001','SL002','SL011') and a.dtproducao between '" & Format(CDate(msk_inicio.Text), "yyyy/mm/dd") & "' and '" & Format(CDate(msk_fim.Text), "yyyy/mm/dd") & "' and a.codrecurso=b.codrecurso group by  b.usr_grupomaq, month(a.dtproducao), year(a.dtproducao) Order By b.usr_grupomaq"
    
    RsGrupoRec.Open SqlGrupoRec, conn, adOpenKeyset, adLockOptimistic
    RsSemRec.Open SqlSemRec, conn, adOpenKeyset, adLockOptimistic
    rsComRecCodDen.Open SqlComRecCodDen, conn, adOpenKeyset, adLockOptimistic
    rsDespTecAut.Open SqlDespTecAut, conn, adOpenKeyset, adLockOptimistic

    Set dg_lista.DataSource = RsGrupoRec.DataSource
    Set dg_lista2.DataSource = RsSemRec.DataSource
    Set dg_lista3.DataSource = rsComRecCodDen.DataSource
    Set dg_lista4.DataSource = rsDespTecAut.DataSource
   
End If

End Sub

 

rdm, eu faço o seguinte, gero uma view para cada consulta dentro do banco , e no crystal eu selectiono essas view, e é so colocar os campos que vc quer no form e relaciona-las