Thanks Miranda! I'm off to a good start....
Here's what I've got so far, and it seems like none of the little variations I've been trying work. If anybody can point me in the right direction, I'd be much obliged. Here's the important piece of the code:
cmdMbrs = New OleDbCommand( _
"SELECT * " & _
"FROM tblSubType " & _
"WHERE (((tblSubType.SubType)=" & strWhere & "))" & _
"ORDER BY tblSubType.SubType;", conClsf)
cmdMbrs2 = New OleDbCommand( _
"SELECT * " & _
"FROM tblSubContractors " & _
"WHERE (((tblSubContractors.SubType)=" & strWhere & "))" & _
"ORDER BY tblSubContractors.SubType;", conClsf)
Dim DA as OleDbDataAdapter = New OleDbDataAdapter
Dim DA2 as OleDbDataAdapter = New OleDbDataAdapter
DA.SelectCommand = cmdMbrs
Dim ds As DataSet = New DataSet
Dim tblType as DataTable
Dim tblContractors as DataTable
ds.Tables.Add("tblType")
ds.Tables.Add("tblContractors")
rdrMbrs = cmdMbrs.ExecuteReader
DA.Fill("tblType", rdrMbrs)
DA2.SelectCommand = cmdMbrs2
conClsf.close
conClsf.Open
rdrMbrs2 = cmdMbrs2.ExecuteReader
DA2.Fill("tblContractors", rdrMbrs2)
Dim parentCol As DataColumn
Dim childCol As DataColumn
parentCol = ds.Tables("tblSubType").Columns("SubType")
childCol = ds.Tables("tblSubContractors").Columns("SubType")
myRel = New System.Data.DataRelation("Subs", parentCol, childCol)
ds.Relations.Add(myRel)
Repeater1.DataSource = ds.Tables("tblSubType")
Repeater1.DataBind()
cmdMbrs.Dispose
cmdMbrs2.Dispose
conClsf.Close
Please help! Thanks much.