[Resolvido] Data Grid View Erro Parameter name: index

Boa a tarde a todos,

Seguinte pessoal estou utilizando um datagridview no meu form e estou com o seguinte erro:

Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index

Dei uma pesquisada na internet, foruns e etc e não consigo descobrir qual é o real problema segue a baixo a parte do código que me apresenta erro:

Dim dtbCompDGV As DataTable = fpuDataTableTrib(New SqlCommand("SELECT dbo.TribEdificacoes.EdifNumPavimento, dbo.TribEdificacoes.EdifAreaConstruida, dbo.TribEdificacoes.EdifAreaCoberta, dbo.TribTerreno.LoteLoteamento, dbo.TribTerreno.QuadraLoteamento, dbo.TribTerreno.Loteamento, dbo.TribTerreno.TerrAreaTerreno, dbo.TribEdificacoes.EdificacaoID, dbo.Loteamentos.IDLoteamento, dbo.Loteamentos.Descricao FROM dbo.TribTerreno INNER JOIN dbo.TribEdificacoes ON dbo.TribTerreno.TerrenoID = dbo.TribEdificacoes.TerrenoID INNER JOIN dbo.Loteamentos ON dbo.TribEdificacoes.IDLoteamento = dbo.Loteamentos.IDLoteamento WHERE dbo.TribEdificacoes.EdificacaoID = " + CodInscricaoImobiliaria))

 If dtbCompDGV.Rows.Count > 0 Then
 DGV.RowCount = lngRegLote + 1
 Me.DGV.Item(0, lngRegLote).Value = txbFDistrito.Text
 Me.DGV.Item(1, lngRegLote).Value = txbFSetor.Text
 Me.DGV.Item(2, lngRegLote).Value = txbFQuadra.Text
 Me.DGV.Item(3, lngRegLote).Value = txbFLote.Text
 Me.DGV.Item(5, lngRegLote).Value = dtbCompDGV.Rows(0).Item("Descricao").ToString
 Me.DGV.Item(6, lngRegLote).Value = dtbCompDGV.Rows(0).Item("IDLoteamento").ToString
 Me.DGV.Item(7, lngRegLote).Value = dtbCompDGV.Rows(0).Item("QuadraLoteamento").ToString
 Me.DGV.Item(8, lngRegLote).Value = dtbCompDGV.Rows(0).Item("Loteamento").ToString
 Me.DGV.AutoResizeColumns()
 End If

Em algumas colunas eu alimento o datagrid com os valores de meus textbox e outros campos alimento com valores de registros do banco, dá-se o erro a partir da ultima linha!!

Alguém sabe me dizer o que estou fazendo errado!!

Grato a todos aquela que colaborarem, abraços!!