gracias por sus aportes la verdad me tarde un rato pero encontré un forma de aserlo a continuación les dejo el código para que me den su opinión.
Cita: Using ConSQL As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\pollos.mdb")
ConSQL.Open() 'abrimos la conexion
'productos del paquete actual | consulta para el datagrid
Dim consultap As New OleDbDataAdapter("SELECT a.IdProducto as Numero, a.Producto, b.Cantidad, a.Precio,b.Precio FROM(Cat_Productos as a INNER JOIN Detalle_Promociones as b ON a.IdProducto = b.IdProducto) where idpromocion = " + Idpromocio + "", ConSQL)
Dim ppp As New DataSet
consultap.Fill(ppp, "0")
'se acutalisan los productos de los paques
With dgvProductosPromocioes
.DataSource = ppp.Tables(0)
.RefreshEdit()
End With
ConSQL.Close()
End Using
solo puse parte del código si lo quieren ver completo díganme, aun que eso es lo que se requiere