Dim cnn As new Data.OleDB.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.mdb;Persist Security Info=False") Dim ada As New Data.OleDB.OleDbDataAdapter("Select * F------rom test", cnn) Dim dataSet As new System.Data.DataSet
ada.Fill(dataSet)
Dim dt = dataSet.Tables(0) msgbox(dt.rows(0)("字段1"))