<%@ Page Language="VB" %>
<%@ import Namespace="System.data" %>
<%@ import Namespace="System.data.oledb" %>
<%@ import Namespace="System.data.ado" %><script language="vb" runat="server">    
    Sub Button1_Click(sender As Object, e As EventArgs)
       Dim cma as ADOCommand = new ADOCommand("","Provide=Microsoft.Jet.OLEDB.4.0;Data Source=jc")
       dim dra as ADODataReader
       dim shti as short
      cma.ActionConnection.Open()
      cma.CommandText = "select * from t_sp"
      cma.execute(dra)
    
      do while dra.read()
         Response.write(dra.item("sp_id") & " , " & dra.item("sp_name"))
         response.write("<br>")
      loop
      dra.close
    End Sub</script>