关于Datagridview更新到access内容后边出现大量空白

Case "HOME"
                If position(0, 0) = 1 Then ' home       
                    Me.Invoke(New EventHandler(AddressOf StartTimer))
                    result = Mid$(recString, 1, 8)
         
                    result = Format((CLng("&H" & result)) * 0.00006666, "0.000")
                    dgvDT = DataGridView1.DataSource
                    dr = dgvDT.NewRow()
                    dr.Item(0) = RowsCounter + 1
                    dr.Item(1) = result
                    dgvDT.Rows.Add(dr)
                    position(0, 1) = 1
                    position(0, 0) = 0
                    txtStatus.Text = "Home to Goal"
                ElseIf position(1, 0) = 1 Then 'gold to home
                    position(1, 0) = 0
                    position(0, 0) = 1
                    txtStatus.Text = "Home Cell"
                    RowsCounter += 1
                    If RowsCounter = 0 Then
                        dr.Item(0) = RowsCounter + 1
                    Else
                        dr.Item(0) = RowsCounter
                    End If
                End If
            Case "GOAL"
                If position(0, 1) = 1 Then 'home to gold
                    Me.Invoke(New EventHandler(AddressOf EndRunTimer))
                    result = Mid$(recString, 1, 8)
                    'result = Mid$(recString, InStr(recString, "G") - 8, 8)
                    result = Format((CLng("&H" & result)) * 0.00006666, "0.000")
                    If RowsCounter = 0 Then
                        dr.Item(2) = result
                        dr.Item(3) = Format(result + dr.Item(1) * (1 / 30), "0.000")
                        dgvDT.Rows(RowsCounter).Item(2) = dr.Item(2)
                        dgvDT.Rows(RowsCounter).Item(3) = dr.Item(3)
                        bestRun = result