List1.Clear
If Combo1.Text = "Aerobics" Then
rs.MoveFirst
Do While Not rs.EOF
If rs.Fields("time") = Combo4.Text And rs.Fields("expdate") > Date Then
n = n + 1
List1.AddItem n & " " & rs.Fields("id") & " " & rs.Fields("name")
End If
rs.MoveNext
Loop
End If
my combo4 lists are like sat 1 , sat 2 ...
i have tried
f rs.Fields("time") = " sat 1" And rs.Fields("expdate") > Date Then
but i couldn't get the list box..when i tried with different fields with same code its working properly ..i don't know whats the problem with this .any one can help me.