Seguinte, tenho a tabela Assistencia com o numero da assistencia

depois tenho a tabela Assist_retorno para os retornos de assistencia...
gostaria de saber como melhorar essa retina ai de baixo?

abraços

Dim var_15 As Date, var_Eliminado As Integer
    Set RsSql = New ADODB.Recordset
    Set RsSql_novo = New ADODB.Recordset
    lst1.Visible = False
    lst1.Clear
    var_15 = Date - 7
    var_15 = Format(var_15, "MM/DD/YYYY")
    Sql = "Select Ret_Assist from Assist_Retornos WHERE Ret_Data_Atendimento = #" & var_15 & "# and ret_data_enc is null "
    RsSql.Open Sql, Conexao, adOpenDynamic, adLockOptimistic 'buscando no banco.
        Do Until RsSql.EOF
            Sql = "SELECT * From Assist_tecnica " & _
                  "WHERE Assist_Numero =" & RsSql!Ret_Assist & " and Assist_Status = 2"
            RsSql_novo.Open Sql, Conexao, adOpenDynamic, adLockOptimistic 'buscando no banco.
            If RsSql_novo.EOF = False Then
                lst1.AddItem (RsSql_novo!Assist_Numero)
                lst1.ItemData(lst1.NewIndex) = RsSql!Ret_Assist
            Else
                var_Eliminado = var_Eliminado + 1
            End If
            RsSql_novo.Close
            RsSql.MoveNext
        Loop
    Sql = Empty
    Label1.Caption = RsSql.RecordCount - var_Eliminado
    Label1.Visible = True
    RsSql.Close
    Set RsSql = Nothing
    lst1.Visible = True