ASP.NET

Dim random = New Random(System.DateTime.Now.Millisecond)
Dim randomNumber As Integer = random.[Next](10000000, 100000000)
Dim randomNumberNew As Integer = random.[Next](10000000, 100000000)

Public Shared Function NextRandomNumber(ByVal minValue As Integer, ByVal maxValue As Integer) As Integer
    Using random As RandomNumberGenerator = RandomNumberGenerator.Create()
        Dim b(3) As Byte
        random.GetBytes(b)
        
        Dim d As Double = CDbl(BitConverter.ToUInt32(b, 0)) / UInt32.MaxValue
        Return CInt(Math.Floor(d * maxValue - minValue) + minValue)
    End Using
End Function

<configuration>
    <connectionStrings>
        <add
            name="MyConnectionString"
            providerName="System.Data.SqlClient"
            connectionString="server=SERVER-NAME;database=DB-NAME;uid=USER-NAME;pwd=PASSWORD"
        />
        <!--
        For more examples of connection strings, see:
        http://www.connectionstrings.com/
        -->
    </connectionStrings>
</configuration>

Imports System.Configuration
...
Dim connectionStringSettings As ConnectionStringSettings = ConfigurationManager.ConnectionStrings("MyConnectionString")
Using connection As New SqlConnection(connectionStringSettings.ConnectionString)
    ...
End Using