Filtrar con datos en un Combobox

[culd]

Fijate si se entiende

Código:

Private Sub cmdaceptar_Click()

Dim dataventa As ADODB.Command
Dim Entorno As dataventa

usuario = cbxusuarios.List(cbxusuarios.ListIndex)   'Esto te lo modifique
fechaini = dtpdel.Value
fechafin = dtpal.Value

Set Entorno = New dataventa

Entorno.dataventa.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=\\195.168.1.1\Estacionamiento\PV\venta1.mdb"
    
Set dataventa = Entorno.Commands("acmcortez_Grouping")
dataventa.CommandType = adCmdText
'Aca te lo modifique tambien
If usuario <> "" Then   'Si selecciono algo, entonces usuario tiene un valor (quiere decir que hay que filtrar por usuario)
    dataventa.CommandText = "SHAPE {SELECT CorteZ.Fecha_Corte, CorteZ.Cantidad_Folios, CorteZ.Folio_Cortez, CorteZ.Total_CorteZ, Usuarios.Nombre, Usuarios.Apellido_Paterno, CorteZ.Id_Usuario, Usuarios.Id_Usuario AS Expr1 FROM CorteZ, Usuarios WHERE CorteZ.Id_Usuario = Usuarios.Id_Usuario and CorteZ.Fecha_Corte between #" & Format(fechaini, "mm/dd/yyyy") & "# and #" & Format(fechafin, "mm/dd/yyyy") & "# and Usuarios.Id_Usuario = '" & usuario & "'} AS acmcortez COMPUTE acmcortez, SUM(acmcortez.'Total_CorteZ') AS SumaTotal BY 'Id_Usuario'"
Else
    'en este caso, como no selecciono nada, que no filtre por usuario
    dataventa.CommandText = "SHAPE {SELECT CorteZ.Fecha_Corte, CorteZ.Cantidad_Folios, CorteZ.Folio_Cortez, CorteZ.Total_CorteZ, Usuarios.Nombre, Usuarios.Apellido_Paterno, CorteZ.Id_Usuario, Usuarios.Id_Usuario AS Expr1 FROM CorteZ, Usuarios WHERE CorteZ.Id_Usuario = Usuarios.Id_Usuario and CorteZ.Fecha_Corte between #" & Format(fechaini, "mm/dd/yyyy") & "# and #" & Format(fechafin, "mm/dd/yyyy") & "#, SUM(acmcortez.'Total_CorteZ') AS SumaTotal BY 'Id_Usuario'"
End If
    Load rptvtaxusuario
    rptvtaxusuario.Show 1, frmventausuario
    
Unload Me

End Sub