Un ejemplo :
<code>
<% @Import Namespace="System.Data" %>
<% @Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub Page_Load(sender as Object, e as EventArgs)
'Create a connection
Const sConnStr as String="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Databases\GrocerToGo.mdb"
Dim objConn as New OleDbConnection(sConnStr)
objConn.Open()
Const strSQL as String = "SELECT DepartmentID, Name " & _
"FROM tblDepartment"
Dim objCmd as New OleDbCommand(strSQL, objConn)
Dim objDR as OleDbDataReader
objDR = objCmd.ExecuteReader()
lstDepartments.DataSource = objDR
lstDepartments.DataBind()
End Sub
</script>
<html>
<body>
<b>Departments</b>:
<asp:listbox id="lstDepartments" runat="server" Rows="1"
DataTextField="Name" DataValueField="DepartmentID" />
</body>
</html>
</code>
