用正则表达式吧，首先导入命名空间System.Text.RegularExpressions，用Webbrowser载入页面，使用vb.net的代码如下：
成都创新互联专业为企业提供淇滨网站建设、淇滨做网站、淇滨网站设计、淇滨网站制作等企业网站建设、网页设计与制作、淇滨企业网站模板建站服务，十载淇滨做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
Dim iTable As String = WebBrowser1.Document.Body.InnerHtml
Dim str_xm1 As String = Regex.Match(Regex.Matches(iTable, "td.*?/td").Item(6).Value, ".*?").Value
这样str_xm1就是你要的内容。
Public conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public db As String
Private sSQL As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
db = "C:\Documents and Settings\ws01\デスクトップ\新しいフォルダ\WindowsApplication1\db1.mdb"
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" db
conn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
conn.Open(db)
Rs = conn.OpenSchema()
End Sub
sql = "select name from sysobjects where type='U'"
获取所有表名，然后再遍历每个表的字段，获取字段名
