Vertabanındaki veri ile Kayan Yazı

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="deneme.aspx.vb" Inherits="deneme" %>
<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<%
Dim baglan As New OleDbConnection
Dim adap As New OleDbDataAdapter
Dim dt As New DataTable
baglan = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=|DataDirectory|\sablonum.mdb")
baglan.Open()
adap = New OleDbDataAdapter("select * from tablom", baglan)
dt = New DataTable
adap.Fill(dt)
%>

<marquee behavior=alternate style="width: 306px"> <% Response.Write(dt.Rows.Item(0).Item(1).ToString())%></marquee></td>