rasdial.exe就是提供ADSL拨号服务的
使用方法
rasdial.exe 连接名称 用户名 密码
（注意空格，连接名称就是你宽带连接的名字，一般就是“宽带连接”） 你只需要把程序里输入的连接名称、用户名和密码作为参数提交到rasdial.exe即可，代码如下：
Dim aaa As String aaa = "Rasdial" & " " & Text1.Text & " " & Text2.Text & " " & Text3.Text Shell aaa, 6 Text1是输连接名称的，Text2是输用户名的，Text3是输密码的