'This is a quick example of an ADO recordset that does what you want.

'These 2 items would be moved to a global area
Dim gstrStudNo As String
Dim gdatRegDat As Date

...