Въпрос за MCISendString

някой може ли да ми даде съвет. Исакм да напиша модул който да отваря CD-то. Аз процедирам така:
retvalue = mciSendString("set CDAsudio door open", returnstring, 127, 0)
но се получава така, че имам виртуално CD и на практика се отваря то, а не физическото ми. Физическото е "X:" a другото "F:". Как да укажа, че искам командата да се отнася за "X:" ?.
Също така каква е командата за задаване на ReadSpeed.
Благодаря на всеки, който ми помогне.

Sub CDOpen()

  Dim oWMP

    Set oWMP = CreateObject("WMPlayer.OCX.7" )

    Set colCDROMs = oWMP.cdromCollection

      if colCDROMs.Count >= 1 then

          For i = 0 to colCDROMs.Count - 1

	colCDROMs.Item(i).Eject

          Next i

      End If

End Sub

Tova trjabva da ti pomogne

Благодаря. Пробвах го, работи.
Само, че уж този метод трябва и да затваря чекмеджето ако е отворено, но при мен нещо не се получава. Може би е от модела. Благодаря пак.

Shte se pointeresuvam, i ako namerja neshto po vuprosa za zatvarjaneto na vratite shte ti pisha

eto ti nai-lesnia nachin:
Dim p As String
p = Space(256)
mciSendString "open e: type cdaudio alias cd", p, Len(p), 0
mciSendString "set cd door open", p, Len(p), 0

i posle:
mciSendString "set cd door closed", p, Len(p), 0

Специални Благодарности !!!
Работи перфектно.