方法一：
弄个按钮,在按钮的click事件中
Dim x
x= Shell("rundll32.exe rnaui.dll,RnaDial " & "连接_名称", 1)'这是打开你的连接
X=rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl '这是打开网络连接
方法二：
Shell "Rasdial 宽带连接 帐号ID 帐号密码", vbNormalFocus
自动拨号,建立连接
弄个按钮,在按钮的click事件中
Dim x
x= Shell("rundll32.exe rnaui.dll,RnaDial " & "连接_名称", 1)'这是打开你的连接
X=rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl '这是打开网络连接
方法二：
Shell "Rasdial 宽带连接 帐号ID 帐号密码", vbNormalFocus
自动拨号,建立连接
