Query on the fly?

[Hack]

Something like

Dim sSQL As String
sSQL = "SELECT name,class,group,attend,date FROM yourtable "
adoRs.Open sSQL, cnobject
 
'then you could insert the results of your recordset into a temp
'table to which your crystal report was bound