用VB写的查找光驱的代码不能识别光驱

我在网上下了一个光盘管家的小程序，在运行的时候提示我没有安装光驱，是什么原因，请大侠们帮我解决一下。电脑上分明有DVD光驱的。代码如下：
Private Sub Form_Load()
CencerForm Me
Dim DriveNameNum As Single, DriveName As String
'找出所有的光驱
DriveNameNum = Asc("a") - 1
For i = 1 To 26
    DriveNameNum = DriveNameNum + 1
    DriveName = Chr(DriveNameNum) + ":\"
    ndriveType = getDriveType(DriveName)
    If ndriveType = 5 Then
       Combo1.AddItem "光驱 " + Trim(UCase(Chr(DriveNameNum))) + ":"
    End If
Next
If Combo1.ListCount > 1 Then
   Combo1.ListIndex = 0
Else
   MsgBox "你没有光驱，缷载本软件吧!", vbCritical
   End
End If
'读出所有类别
For i = 2 To MainForm.TreeView1.Nodes.Count
    If Left(MainForm.TreeView1.Nodes.Item(i).Key, 3) = "光盘库" Then
       Combo2.AddItem MainForm.TreeView1.Nodes.Item(i).Text
    End If
Next
'匹配类别
If MainForm.TreeView1.SelectedItem.Key = "光盘库" Then
Else
   For i = 0 To Combo2.ListCount - 1
       If Combo2.List(i) = MainForm.TreeView1.SelectedItem.Text Or MainForm.TreeView1.SelectedItem.Parent.Text = Combo2.List(i) Then
          Combo2.ListIndex = i
       End If
   Next
End If
End Sub
因为我是新手不能给大家给分，在此先谢谢了！