Base de datos en DataTable

    Conexión con una base de datos de Microsoft Access y, por código, creamos una DateTable con 3 columnas para mostrar los registros, formateados en una tabla HTML para mejorar su presentación. Se usa un archivo de configuración externo web.config en el que se definen algunas variables usadas en el archivo aspx, ello permite configurar ciertas opciones de la aplicación (manejo de errores, opciones de compilación...) y tener variables de configuración fácilmente accesibles para su modificación.
Por ejemplo, si en el archivo web.config tenemos una clave rutalocal cuyo valor es la ruta a la base de datos:

<configuration>
  <appSettings>
    <add key="rutalocal" value="../datos/agendalite.mdb"></add>
  </appSettings>
</configuration>


    podemos referirnos a esa clave rutalocal en el código Visual Basic de esta manera:

Dim ruta As String
Dim ruta2 As String
ruta2 = ConfigurationSettings.AppSettings ("rutalocal")
ruta = Server.MapPath(ruta2)

    También se emplea un bucle For para iterar por todos los registros de la tabla origen y mostrarlos dentro de las filas de la tabla HTML :

Dim n As Integer
n = dt.Rows.Count
If n = 0 then
lbAviso2.Text = "No hay registros."
Else
lbAviso2.Text = "Se han encontrado " & n.ToString & " registros en la tabla<br><br>"
For i = 0 To n - 1
 Dim sShipName , sShipAddress As String
 sShipName = dt.Rows(i).Item("ShipName").ToString
 sShipAddress = dt.Rows(i).Item("ShipAddress").ToString
 lbAviso2.Text += "<table border=0><tr><td width=40><font face=Verdana size=2 color=blue>" _
 & (i + 1).ToString("00") & "</font> - </td><td width=240><font face=Verdana size=2>" _
 & sShipName & "</font></td><td width=360><font face=Verdana size=2>" & sShipAddress _
 & "</td></tr></font></table>"
Next