Control CD Drive

The code below will allow you to control the CD-ROM drive using mciSendString.
Start a new project and add two command buttons to the form.

Private Sub Command1_Click()
OpenCD
End Sub

Private Sub Command2_Click()
CloseDB
End Sub

=============================== Module1 ============================

Option Explicit

Public Declare Function mciSendString Lib "winmm.dll" Alias _
    "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
    lpstrReturnString As String, ByVal uReturnLength As Long, _
    ByVal hwndCallback As Long) As Long

Public Sub OpenCD()
    Dim res As Long, returnstring As String * 127
    res = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub

Public Sub CloseCD()
    Dim res As Long, returnstring As String * 127
    res = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub