Si entiendo bien tu pregunta y tienes dos tablas, EJ: Facturas, FacturasLineas, deberías crear una vista o un comando así:
SELECT * FROM Facturas, FacturasLineas WHERE FcgPgoIng=#07/11/2017# And Facturas.NroFact=FacturasLineas.NroFact
Donde * => todos los campos (Puedes colocar solo los campos que te interesen)
Luego solo tienes que barrer el comando o vista creado y reemplazar las celdas del datagridview, que sería algo como esto:
Dim daFct As OleDbDataAdapter
Dim dtFct As New DataTable
ConectarDB ' Función que crea una conexión de BD y la coloca en una variable llamada Conexion
daFct = New OleDbDataAdapter("SELECT * FROM Facturas, FacturasLineas WHERE FcgPgoIng=#07/11/2017# And Facturas.NroFact=FacturasLineas.NroFact",Conexion)
daFct.Fill(dtFct)
For N As Integer = 0 To dtFct.Rows.Count - 1
Dgv.Rows.Add()
Dgv.Rows(N).Cells("Nombre Columna 1").Value = dtIng.Rows(N)("Campo1")
Dgv.Rows(N).Cells("Nombre Columna 2").Value = dtIng.Rows(N)("Campo2")
Dgv.Rows(N).Cells("Nombre Columna 3").Value = dtIng.Rows(N)("Campo3")
Dgv.Rows(N).Cells("Nombre Columna 4").Value = dtIng.Rows(N)("Campo4")
.
.
Next
MGilt