主题：[求助]

Tables("生产进度表").Current.DataRow.Load()
If User.Group = "经理" OrElse  User.Group = "主管"  OrElse  User.Group = "跟单" Then
    Dim proc As new  Process
    If Tables("生产进度表").current.IsNull("制单") Then
        MessageBox.Show("此款无生产制单,请刷新后再试!")
    Else
        proc.File = DataTables("生产进度表").DataCols("制单").DefaultFolder & "/" & Tables("生产进度表").current("制单")
        proc.Start
    End If
Else
    MessageBox.show("你无权执行此项操作!")
End If

以上代码打开的文件是excel文件，我想把“MessageBox.show("你无权执行此项操作!")”这个代码改为用pdf打开excel文件，请问该怎样写代码。谢谢