Attribute VB_Name = "basOpenCloseCD"
Option Compare Database
Option Explicit

Private 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

Function OpenCD()
    'Call this, perhaps from a command button
    mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Function

Function CloseCD()
    'Call this, perhaps from a command button
    mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Function