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.
oRST1.Open sSQL1, oConnect1
Dim sSQL1 As String Dim oConnect1 As ADODB.Connection Set oConnect1 = New ADODB.Connection Dim oRST1 As ADODB.Recordset Set oRST1 = New ADODB.Recordset sSQL1 = "SELECT DISTINCT[nom]FROM [Clients]'" oConnect1 = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & Form2.txtBaseDelabsolution.Text nom.AddItem "" oRST1.Open sSQL1, oConnect1 Do Until oRST1.EOF nom.AddItem oRST1("Nom") oRST1.MoveNext Loop
Join the community of 500,000 technology professionals and ask your questions.