Connection

Private Sub Command1_Click()
Dim res
res = Shell("rundll32.exe rnaui.dll,RnaDial " _
& "Your_Connection_Name", 1)
End Sub
'Your_Connection_Name e' il nome della vostra

'connessione internet sull'acesso remoto