01.<%@ Import Namespace="System.Data"%>
02.<%@ Import Namespace="System.Data.OleDb"%>
03.<%@ Page Language="VB" %>
04.<script runat="server">
05.
06. Dim objConn As OleDbConnection
07. Dim objCmd As OleDbCommand
08.
09. Sub Page_Load(sender As Object, e As EventArgs)
10. Dim strConnString As String
11. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
12. objConn = New OleDbConnection(strConnString)
13. objConn.Open()
14.
15. If objConn.State = ConnectionState.Open Then
16. Me.lblText.Text = "Access Connected"
17. Else
18. Me.lblText.Text = "Access Connect Failed"
19. End IF
20. End Sub
21.
22. Sub Page_UnLoad()
23. objConn.Close()
24. objConn = Nothing
25. End Sub
26.
27.</script>
28.<html>
29.<head>
30.<title>ThaiCreate.Com ASP.NET - Microsoft Access</title>
31.</head>
32.<body>
33. <form id="form1" runat="server">
34. <asp:Label id="lblText" runat="server"></asp:Label>
35. </form>
36.</body>
37.</html>
