给你个例子    Dim cnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("xxxxx.mdb")
    Dim strSQL As String = "SELECT Document.objectGuid,Document.Title,Document.Author,Document.Source, Document.CreateDate,Document.HitCount,Subject.Title FROM Document INNER JOIN Subject ON [Subject].[id]=[Document].[pid] ORDER By CreateDate DESC"
    Dim cn As New OleDbConnection(cnString)
    cn.Open()
    Dim cmd As New OleDbCommand(strSQL, cn)
    Dim db As OleDbDataReader
    db = cmd.ExecuteReader(CommandBehavior.CloseConnection)
    EditDoc.DataSource = db
    EditDoc.DataBind()
    cn.Close()
    cn = Nothing
    cmd = Nothing