Error !! Can you help ?

Dim Cn As OleDbConnection
Dim Cmd As OleDbCommand

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:inetpubwwwrootStudent.mdb;User ID=Admin;Password=;")
Cn.Open()
CreateStudentIdRandomly()
Catch ex As Exception

End Try
End Sub

Public Sub CreateStudentIdRandomly()

Try

Dim str As String
Dim number As Integer
Dim i As Integer
Dim r As New Random

str = String.Empty
number = 0

--> str = r.Next(100000000, 999999999).ToString()

For i = 0 To 6
If str.Substring(i, 1) = str.Substring(i + 1, 1) Then
If str.Substring(i + 1, 1) = str.Substring(i + 2, 1) Then
CreateStudentIdRandomly()
End If
End If
Next

number = CType(str, Integer)

Cmd = New OleDbCommand("Insert into T values (" & number & ")", Cn)
cmd.ExecuteNonQuery()

Catch ex As StackOverflowException

Finally

CreateStudentIdRandomly()

End Try

End Sub



Hi ,

In the above code while executing at run-time it is throwing an exception (An unhandled exception of type 'System.StackOverflowException' occurred in mscorlib.dll" ) at -->


Can you please give me an idea why it is happening so ?

Advance ThanX for your time & patience.

Thanks,
Kishore