Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Public Sub GetPrivateDailyCensus() Dim cnn As Object Dim CRecordset3 As Object 'Private Avg ' Create a connection object Set cnn = CreateObject("ADODB.Connection") ' Connect to the database cnn.Provider = "SQLOLEDB" cnn.Open "Server=Vaio;Database=Products;User Id=admin;Password=password" If cnn.State <> 1 Then MsgBox "Could not connect to the database" Exit Sub End If ' Open recordset BeginNextRecordset Set CRecordset3 = CreateObject("ADODB.Recordset") CRecordset3.Open "EXEC spGetPrivateTotalDailyCensusNew", cnn, adOpenDynamic, adLockPessimistic Sheets("WeeklyCensus").[D4].CopyFromRecordset CRecordset3 cnn.Close Set cnn = Nothing End Sub