Model1

Public objConn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\database\MediaTeach.mdb")
Public objComm As New OleDb.OleDbCommand
Public objda As New OleDb.OleDbDataAdapter
Public objds As New DataSet

form1里代码
objComm.CommandText = "select * from FirstList"
objComm.Connection = objConn
objda.SelectCommand = objComm
objConn.Open()
objda.Fill(objds)
objConn.Close()

For i = 0 To objds.Tables(0).Rows.Count - 1
LabelXH(i + 1).Text = objds.Tables(0).Rows(i)(1)
labelID(i) = objds.Tables(0).Rows(i)(0)
Next

form2里代码
objComm.CommandText = "select * from SecondList"
objComm.Connection = objConn
objda.SelectCommand = objComm
objConn.Open()
objda.Fill(objds)
objConn.Close()

For i = 0 To objds.Tables(SecondList).Rows.Count - 1
LabelXH(i + 1).Text = objds.Tables(SecondList).Rows(i)(1)
labelID(i) = objds.Tables(SecondList).Rows(i)(0)
Next

form2里有错
未处理的“System.Data.OleDb.OleDbException”类型的异常出现在 system.data.dll
我的ACCESS里四张表,我想在每一个窗体里用一张表,表里记录的是控件名称,控件的编号
帮我看看哪里错了

可能是你没引用  System.Data.OleDb

我引用了,在每一个窗体的代码里都引用了

liuminghui你有VB.net + ACCESS的小程序吗?给我参考一下.

Public objConn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\database\\MediaTeach.mdb")

不用双//。一个就好。/

请用不同的DataSet和OleDb.OleDbDataAdapter

或者
objConn.Open()
objda.Fill(objds)
objConn.Close()
这里为每个窗口分一个新表
form1objConn.Open()
objda.Fill(objds,"T1")
objConn.Close()
form2
objConn.Open()
objda.Fill(objds."T2")
objConn.Close()

谢谢大家,我已经搞定了,呵呵

既然搞定了
怎么不把方法说一下
也让我们学习学习
你要是不想说
就不要回搞定了
让别的高人来解答一下

呵呵,我把这几张表做在一个表里了,呵呵,这个问题我已经解决了,所以就说一下了
还有一种就是将这几张表关联查询放在一个表里