filtrar listbox por 2 columnas de mi tabla

Question

buen dia tengo un listbox en el que despliego los datos de mi tabla los tengo acomodados por la columna FECHA, mi duda es, tambien tengo un campo que se llama SECUENCIA y me gustaria que mis campos se filtraran  por fecha y despues por secuencia, para asi poder ver la secuencia de cada dia, mi codigo es el siguiente, espero me puedan ayudar

Private Sub CargarlistEstatus()

        On Error Resume Next
        tbAux2.Close()
        On Error GoTo 0
        tbAux2.Open("Select RefVenta, venCliente, VenFechaPlanEntrega, VenSecuencia, venestatus from Ventas order by VenFechaPlanEntrega ", CnCP, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)

        lstEstatus.Items.Clear()
        If Not tbAux2.EOF Then
            Do
                lstEstatus.Items.Add(Format(tbAux2("RefVenta").Value, "{0,-20}") & "  " & Format(tbAux2("venCliente").Value, "{0,-35}") & "  " & Format(tbAux2("VenFechaPlanEntrega").Value, "MM/dd/yyyy") & "  " & Format(Format(tbAux2("VenSecuencia").Value, "0"), "{0,12}") & "  " & Format(tbAux2("venestatus").Value, "{0,15}"))
                tbAux2.MoveNext()
                If tbAux2.EOF Then
                    Exit Do
                End If
            Loop
        End If
        tbAux2.Close()
        If lstEstatus.Items.Count > 0 Then
            cmdModificar.Enabled = True
        Else
            cmdModificar.Enabled = False
        End If
    End Sub