Visual Basic - objetos como parametros

tengo una pequeña duda..
en una aplicacion estoy usando varios data cada uno conectado a una base de datos diferente. cada data se accesa segun una condicion dentro del programa y se manipula el data correspondiente.
Todos los data deben hacer lo mismo y para no repetir tanto codigo he pensado en hacer un procedimiento en el que se envie como parametro el objeto correspondiente y trabaje sobre este. por ejemplo:
tengo dos data: DATA1 y DATA2.
en el codigo principal aparece algo como:

select case sala
case "1"
DATA1.recordset.movefirst
do while not (DATA1.recordset.eof)
......
loop
case "2"
DATA2.recordset.movefirst
do while not (DATA2.recordset.eof)
......
loop

me gustaria tener un procedimiento que me hiciera lo que va dentro de cada caso solo enviandole como parametro, que data debe usar.

Gracias por su colaboracion!!!!

Prueba algo asi
Sub Bucle(Rs as Recordset)
Rs.movefirst
do while not (Rs.eof)

end sub