这个程序可能对你有帮助 :<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Script Languate="VB" Runat="Server">
  Sub Page_Load(sender As Object, e As Eventargs)
    '创建数据连接
    Dim objConn As New OleDbConnection()
    objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                               "Data Source=" & Server.MapPath("Friend.mdb")
    objConn.Open()    '创建 DataReader 对象案例
    Dim objCmd As New OleDbCommand()
    objCmd.Connection = objConn
    objCmd.CommandText = "Select * From 择友俱乐部"
    Dim objReader As OleDbDataReader = objCmd.ExecuteReader()    '显示数据
    Dim I As Integer
    Response.Write ("<Table Border='1'><Tr Align='Center'>")
    For I = 0 To objReader.FieldCount - 1
      Response.Write ("<Td>" & objReader.GetName(I) & "</Td>")
    Next
    Response.Write ("</Tr>")    Dim Data(objReader.FieldCount -1)
    While objReader.Read()
      objReader.GetValues(Data)
      Response.Write ("<Tr>")
      For I = 0 To Data.Length - 1
        Response.Write ("<Td>" & Data(I) & "</Td>")
      Next
      Response.Write ("</Tr>")
    End While
    Response.Write ("</Table>")
    
    '关闭 DataReader 对象案例及数据连接
    objReader.Close()
    objConn.Close()
  End Sub
</Script>