Вызвать окно "Установка связи с Интернетом".
Данный код вызывает окно "Установка связи" из "Удаленный доступ к сети".
Естественно, вы должны знать имя текущего соединения с интернетом.


Private Sub Form_Load()
Result = Shell("rundll32.exe rnaui.DLL,RnaDial " & "connection_name", 1)
End Sub