atuda porfa, llenar dos listbox con acces

[deep]

hola de nuevo necesito colocar registros de una bd acces en dos listbox ej:

id | nombre | fecha | materia
2 | pepe | 2/5/08| quimica
2 | pepe |3/5/08 | lenguaj.
2 | pepe |3/5/08 | cast.
3 | toto |2/6/08 | fisica

el codigo que utilizo es este me funciona si pregunto por el id=2 me arroja 3 registros pero me imprime siempre los datos de la primera linea es decir se repiten siendo que deberia ser distintos, me conecto a una bd acces.
ej: ami me aparece asi:

listbox1 | listbox2
2/5/2008| quimica
2/5/2008| quimica
2/5/2008| quimica

yo quiero q me aparezca asi:

listbox1 | listbox2
2/5/2008| quimica
3/5/2008| lenguaj.
3/5/2008| cast.


desde ya gracias

Private Sub rut_per_keypress(KeyAscii As Integer)

Data1.Refresh
tb.MoveFirst

Do While Not tb.EOF

If tb!id= id.Text Then
Text2.Text = Data1.Recordset.Fields(1).Value
Text3.Text = Data1.Recordset.Fields(2).Value
Text4.Text = Data1.Recordset.Fields(5).Value
List1.AddItem Data1.Recordset.Fields(3).Value
List2.AddItem Data1.Recordset.Fields(4).Value

End If
tb.MoveNext
Data1.Refresh
Loop


End Sub