Const cCNN = "ODBC; DRIVER=SQL Server;Server=server name;Database= Training;Integrated security=SSPI;"

Sub RefreshData(Report As String, cSQL As String)
     ' Report name
    Sheets(Report).Select
    Cells.ClearContents    
    With ActiveSheet.QueryTables.add(Connection:=cCNN, Destination:=Range("A1"), SQL:=cSQL)
        .Name = "table"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .PreserveColumnInfo = False
        .Refresh
    End With
    'Selection.QueryTable.Delete    
End Sub
Sub RefreshALLData()
RefreshData “RawData”, “select * from tbluser”
End sub

Sub RefreshData()
Const cCNN = "ODBC; DRIVER=SQL Server;Server=server name;Database= Training;Integrated security=SSPI;"
    
    Application.DisplayAlerts = False
    On Error GoTo gest_err
    ActiveSheet.QueryTables.Add Connection:=cCNN, Destination:=Range("A1"), Sql:="SELECT * FROM MYTABLE"
    ActiveSheet.QueryTables(1).Refresh BackgroundQuery:=True

    On Error Resume Next
    Application.DisplayAlerts = True
    Exit Sub


gest_err:
    msg = "Module Error #=" & Str(Err.Number) & " was generated by " & Err.Source & Chr(13) & "Module Error Description=" & Err.Description & Chr(13)
    
    'ODBC
    For i = 1 To Application.ODBCErrors.Count
    msg = msg & "ODBC ERROR=" & Application.ODBCErrors(1).ErrorString & Chr(13)
    Next
    
    'OLEDB
    For i = 1 To Application.OLEDBErrors.Count
    msg = msg & "OLEDB ERROR=" & Application.OLEDBErrors.Item(1).ErrorString & Chr(13) & "OLEDB SQL STATE=" & Application.OLEDBErrors.Item(1).SqlState & Chr(13)
    Next
    
    MsgBox msg, , "Error", Err.HelpFile, Err.HelpContext


End Sub

Option Explicit

'Declares for direct ping
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal lpszAgent As String, ByVal dwAccessType As Long, ByVal lpszProxyName As String, ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInet As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Long

Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Private Const INTERNET_FLAG_RELOAD = &H80000000
Private Const INTERNET_FLAG_KEEP_CONNECTION = &H400000
Private Const INTERNET_FLAG_NO_CACHE_WRITE = &H4000000


Private Sub CheckConnection()
    Dim hInet As Long
    Dim hUrl As Long
    Dim Flags As Long
    
    hInet = InternetOpen("aaaa", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0&)
    If hInet Then
        Flags = INTERNET_FLAG_KEEP_CONNECTION Or INTERNET_FLAG_NO_CACHE_WRITE Or INTERNET_FLAG_RELOAD
        hUrl = InternetOpenUrl(hInet, "your_site_here", vbNullString, 0, Flags, 0)
        If hUrl Then
            MsgBox "Your computer is connected to Internet", vbInformation, "Checing connection"
            Call InternetCloseHandle(hUrl)
            Else
            MsgBox "Your computer is not connected to Internet", vbInformation, "Checing connection"
        End If
    End If
    Call InternetCloseHandle(hInet)
End Sub

Function ChkCnxn() As Boolean
    On Error GoTo ErrorHandler
    
    ChkCnxn = False
    
    Dim Cnxn As ADODB.Connection
    
    Set Cnxn = New ADODB.Connection
    Cnxn.ConnectionTimeout = 5 'by default is set to 15 secs
    Cnxn.ConnectionString = "XXXXXX"
    Cnxn.Open
       
    ' clean up
    Cnxn.Close

    Set Cnxn = Nothing

    Exit Function
    
ErrorHandler:

    If Err <> 0 Then        
        
        MsgBox "Connection not available & _
        vbNewLine & _
        vbNewLine & "Error Details:" & vbNewLine & Err.Source & "-->" & Err.Description, vbOKOnly, "Connection Error"        
	
	ChkCnxn = True

    End If
End Function