Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim rdr As OleDbDataReader
Dim ConnString As String = "stringa connessione"
cn = New OleDbConnection(ConnString)
cn.Open()
Dim sql As String = "SELECT * from mov"
cmd = New OleDbCommand(sql, cn)
rdr = cmd.ExecuteReader()
Response.Write("<html><head><title>Visualizzare i record di un DataBase con ASP.NET</title></head><body>")
Response.Write("<table border=1 cellspacing=0 cellpadding=2 align=center>")
While (rdr.Read())
Response.Write("<tr>")
for i=0 to 12
Response.Write("<td>"&rdr(i)&"</td>")
next
Response.Write("</tr>")
End While
Response.Write("</table>")
Response.Write("</body></html>")
rdr.Close()
cn.Close()
End Sub