Visual Basic - Comprobar la existencia de un cd

Alguien sabe como comprovar que tengo un cd puesto en la unidad de cdrom, lo que pasa es que tengo una base de datos que contiene la direccion de unos videos que esta almacenados en cd, la idea es que cuando hago una consulta por un video y si es encontrado, se ejcuta el windows media player, pero si el cd no se encuantra o la bandeja del cd eta abierta, la aplicacion se cae, como puedo validar entonces que el cd se encuanta en la bandeja?

prueba con esto:

Function HayCD() As Boolean
On Error GoTo Error
HayCD = False
ChDrive "D"
HayCD= True
ChDrive "C" ' para que proximo intento funcione correctamente
Exit Function
Error:
ChDrive "C" ' para que proximo intento funcione correctamente
Exit function

Eso lo podes hacer tirando un dir sobre la unidad de cd, por ejemplo con la unidad E:\ haces Dir("E:\") y si da el error 52 en tiempo de ejecucion, es que no hay ningun cd puesto, ahora ademas de verificar esto, podes verificar que este tu archivo, es decir el que queres abrir realmente... creo que es esto lo que querias hacer no?

La funcion Dir devuelve una cadena de longitud 0 si no encontro nada, y si le pones un nombre de archivo concreto, te devuelve el mismo nombre del archivo si lo encuentra.

Suerte