Connect to your ISP using WinInet API

If you want to allow your users to have an option to connect to their ISP before continuing then insert the code into a module and use the Connect() function. If it is already connected it will not prompt a retry but return TRUE and if it fails it will return FALSE.

Option Explicit
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long
Const scUserAgent = "ISP_Dialup"
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Function ConnectToISP() As Boolean
    Dim hInternet As Long
    If InternetAttemptConnect(0) <> 0 Then Exit Function
    hInternet = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
    ConnectToISP = (hInternet <> 0) 'return False if hInternet=0
End Function