Автоматическое увеличение идентификатора Excel VB.NET

Question

Я хочу автоматически увеличить идентификатор при вставке новых данных в Excel, и это мой код

Когда я использую этот код, он выполняет автоматическое увеличение, но когда в листе Excel отсутствует ввод идентификатора, он не работает

Try
        cn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + "C:\\Users\\Barbatos\\Desktop\\Book1.xlsx " + ";Extended Properties=Excel 12.0;")
        cn.Open()
        cm = New OleDbCommand("SELECT MAX([ID]) FROM [Sheet1$]", cn)

        Dim dr As OleDbDataReader = cm.ExecuteReader
        If dr.Read = True Then
            Me.IDEm.Text = dr.Item(0) + 1
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
    cn.Close()

Но когда я использую этот код, он выполняет Автоинкремент, даже если в листе Excel еще нет ввода идентификатора, но он только увеличивается на 10 и останавливается на 10

Try
        cn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + "C:\\Users\\Barbatos\\Desktop\\Book1.xlsx " + ";Extended Properties=Excel 12.0;")
        cn.Open()
        cm = New OleDbCommand("SELECT MAX([ID]) AS MAXIMUM FROM [Sheet1$]", cn)

        Dim dr As OleDbDataReader = cm.ExecuteReader
        If dr.Read = True Then
            If IsDBNull(dr("MAXIMUM")) Then
                Me.IDEm.Text = 1
            Else
                Me.IDEm.Text = dr.Item(0) + 1
            End If
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
    cn.Close()
End Sub