Enclosed below is a corrected version of the code (datacontrol.aspx); this should fix problems.
<%@ Page Language="
vb" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
Sub Page_Load(Sender As Object, E as EventArgs)
Dim objConnection As OleDbConnection
Dim objCommand As OleDbDataAdapter
Dim strConnect As String
Dim strCommand As String
Dim DataSet1 As New DataSet
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConnect += "Data Source=C:\Program Files\Microsoft Visual Studio .NET\FrameworkSDK\"
strConnect += "Samples\quickstart\aspplus\samples\grocertogo\dat a"
strConnect += "\grocertogo.mdb;"
strConnect += "Persist Security Info=False"
strCommand = "SELECT ProductName, UnitPrice FROM products"
objConnection = New OleDbConnection(strConnect)
objCommand = New OleDbDataAdapter(strCommand, objConnection)
objCommand.Fill(DataSet1, "products")
DataGrid1.DataSource=DataSet1.Tables("Products").D efaultView
DataGrid1.DataBind()
End Sub
</script>
<html>
<head>
<title>Data Grid Control example</title>
</head>
<body>
<asp:DataGrid id="DataGrid1" runat="server"></asp:DataGrid>
</body>
</html>