又碰到你了。。
在 conn.Open() '打开连接' 之后,把内容读到数据集中,dataset和excel差不多,就可以直接操作数据了
Dim da As OleDbDataAdapter
Dim ds As DataSet
da = New OleDbDataAdapter(sql, conn)
ds = New DataSet
da.Fill(ds, "tbSheet") '填充到ds中,表名是tbSheet
'然后就可以每个单元格调用了
TextBox2.Text = ds.Tables("tbSheet").Rows(0).Item("Name")
推荐个网址http://blog.csdn.net/dzweather/article/details/8558659