ayuda urgente con busquedas!!!

[cibernet]

Hola aqui molestando de nuevo disculpen es que tengo un problema y no se si alguien me pueda ayudar el siguiente codigo es para realizar la busqueda de unos participantes el problema es que me arroja todos los participanets de una misma empresa, eso esta bien, pero me gustaria que solo me mostrar los que apenas entraron y asi si hago uan consulat cada semana pues solo me muestre los mas recientes..

Public Sub RecuperaParticipantes()
Set cmd2 = New ADODB.Command
Set rsDatos = New ADODB.Recordset

' Establecimiento de conexion
Set cmd2.ActiveConnection = cnn1

Dim idevento

' Recupera id evento

cmd2.CommandText = "select id from plantas where nombreplanta = '" & Trim(Combo1.Text) & "' "

rsDatos.Open cmd2, , adOpenKeyset, adLockBatchOptimistic

idevento = rsDatos!id

rsDatos.Close


cmd2.CommandText = "select * from inscribe where planta = " & idevento

rsDatos.Open cmd2, , adOpenKeyset, adLockBatchOptimistic
Combo2.Clear
Dim nres
If Not rsDatos.EOF Then
rsDatos.MoveFirst
Do While Not rsDatos.EOF
' agrega todos los participantes
Combo2.AddItem (rsDatos!participante)
rsDatos.MoveNext
Loop
End If
rsDatos.Close
End Sub

espero y alguien me pueda ayudar, le s aclaro el prog esta echo en VB 6.0 y SQL server, gracias de antemano saludos...