Hay una función que es split, que separa en partes una cadena de texto.
Al ser una fecha quizá tengas que recuperar el registro, pasarlo a string y luego aplicar el split.
El resultado de la separación se mete en un array.
Dim Separado
Dim Fecha
Fecha=rs("fecha")
Separado=Split(Fecha, "/")
Entonces para el registro 16/10/2008
Separado(0) será 16
Separado(1) será 10 'El mes
Separado(2) será 2008
Aquí te dejo una página donde te explica un caso similar:
http://www.aspisfun.com/functions/string/split.html