عرض ال Connection String لل Database

Imports System
Imports System.Data
Imports System.Data.OleDb

public class MainClass
   Shared Sub Main()
	  Dim connString As String = "provider= microsoft.jet.oledb.4.0; " & _
		 "data source=Employee.mdb;"

	  Dim conn As New OleDbConnection(connString)

	  Try
		 conn.Open()
		 Console.WriteLine("Connection Opened")

		 ' Display connection properties
		 Console.WriteLine("Connection Properties")
		 Console.WriteLine("- ConnectionString : {0}", conn.ConnectionString)
		 Console.WriteLine("- Database : {0}",conn.Database)
		 Console.WriteLine("- DataSource : {0}",conn.DataSource)
		 Console.WriteLine("- ServerVersion : {0}",conn.ServerVersion)
		 Console.WriteLine("- State : {0}", conn.State)
	  Catch ex As OleDbException
		 ' Display error
		 Console.WriteLine("Error: " & ex.ToString())
	  Finally
		 ' Close Connection
		 conn.Close()
		 Console.WriteLine("Connection Closed")

	  End Try
   End Sub
End Class

http://www.java2s.com/Code/VB/Database-ADO...essDatabase.htm