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?

Utiliza un manejador de errores. Esto lo haces con la sentencia On Error. Por ejemplo :
Dim intFile As Integer

On Error Resume Next
intFile = FreeFile
Open "E:\KAKA.TXT" For Input As #intFile
If Err.Number <> 0 Then
MsgBox Err.Number & " " & Err.Description
End If

Saludos

no era la idea pero gracias igual.

checa esta direccion alomejor te sirve de algo

http://www.iesromerovargas.net/sol/22visualbasic11.htm