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