It would be a better idea to use ShellExecute instead of Shell.
Also, it's simple to select between Open and Explore this way:
Code:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub cmdOpen_Click()
Call ShellExecute(0, vbNullString, vbNullString, vbNullString, "\\server\d$", vbNormalFocus)
' Also works: Call ShellExecute(0, "Open", vbNullString, vbNullString, "\\server\d$", vbNormalFocus)
End Sub
Private Sub cmdExplore_Click()
Call ShellExecute(0, "Explore", vbNullString, vbNullString, "\\server\d$", vbNormalFocus)
End Sub