I need to operate on various recordsets.

rsShift1, rsShift2, rsShift3 are 3 Global recordsets which i need to update.

---------------------------------------------------------------------
For i = 1 To No_of_Shifts
STR = "FIRST"
s = "rsShift" & i ' If i do it this way 's' becomes a string 'ERROR'
Call Store_data(s, STR) ' Here s should be a recordset
........
........
Next
----------------------------------------------------------------------

Public Function Store_data(TableName As Recordset, Last_Val As String)

With TableName
...........
For i = 1 To no_of_tags
............
...........
next
..........
End With

End Function
----------------------------------------------------------------------

How do i pass the names of the recordsets to Store_data as recordsets ?