<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Oledb" %>
Sub Page_Load()
Dim strConnection as String = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConnection += "Data Source=C:\NonExistent.mdb"
data_src.text = strConnection
Dim objConnection as New OledbConnection(strConnection)
try
objConnection.Open()
con_open.text="Connection opened successfully.
objConnection.Close()
con_close.text="Connection closed.
catch e as Exception
con_open.text="Connection failed to open.
con_close.text=e.ToString()
end try
end Sub
Testing the data connection