Problema ShellExecute

F.Gino 26/01/2008 Difficoltà: Medio

Salve, mi chiamo Gino sono nuovo del forum un saluto a tutti.
ho creato un Link su C:\ della connessione di rete senza fili, rinominandola connessione, quindi C:\connessione.lnk.
Per lanciare questo link ho usato:
Public 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 Command1_Click()
r = ShellExecute(0, "open", "C:\connessione.lnk", vbNullString, "C:\", WN_SHOWNORMAL)
End Sub

Perche' non funziona?, i link di altri programmi li lancia tranquillamente
Cosa devo usare per lanciare " connessione di rete senza fili " da VB?
Grazie anticipatamente.