函数调用调试但不是自己调用

Question

我创建了一个函数：

    Function randomid() As String
    Try
        Dim i As Integer
        Dim temp As String = ""
        Dim rnd As New Random
        i = rnd.Next(100, 99999)
        temp = "ABC" & i
        Dim count As Integer = Dal.ExecuteScalar("select count(*) from property where property_id='" & temp & "'")
        If count > 0 Then
            randomid()
        Else
            Return temp
        End If
    Catch ex As Exception

    End Try
End Function

我在下面的sub：

中调用上面的函数

Sub AcresImport()
  For Each ..loop
      Dim propId As String = randomid()
  Next
End Sub

有时候工作正常。 我的意思是它正在为一些迭代随机创建propId。 对于Ex - 如果在上面的循环中有3个interations，它将为Ist两次迭代或只有Ist迭代随机创建propId ..意思是。

但是当我通过它进行调试时，它将正确地为3次迭代创建所有3个propIds。

所以当我调试它时工作正常时，我无法理解...当我只是运行它时它为什么不能正常工作。

请帮忙。