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.
Private Function GetDataADO(ByVal Path As String) As DataTable Dim Filename As String = IO.Path.GetFileName(Path) Dim FilePath As String = IO.Path.GetDirectoryName(Path) Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties= ""Text;HDR=No;IMEX=1;"" ; Data Source=" & FilePath Dim Connection As New OleDb.OleDbConnection(ConnectionString) Connection.Open() Dim Command As New OleDb.OleDbCommand Command.CommandType = CommandType.Text Command.Connection = Connection Command.CommandText = "SELECT * FROM [" & Filename & "]" Dim DataTable As New DataTable Dim DataAdapter As New OleDb.OleDbDataAdapter(Command) DataAdapter.Fill(DataTable) Connection.Close() Connection.Dispose() Return DataTable End Function
Join the community of 500,000 technology professionals and ask your questions.