Dbbio SqlDataReader

Dim RootUrl As String = ""

                Dim objConn As New SqlConnection("Stringa di connessione;")
                objConn.Open()

                Dim objCmd As New SqlCommand("SelectRootUrl", objConn)
                Dim reader As SqlDataReader = objCmd.ExecuteReader()
                'assegno a RootUrl l'ultimo valore ceh mi restituisce la procedura
                Try
                    While reader.Read()
                        RootUrl = reader(0)
                    End While
                Finally
                    reader.Close()
                End Try

                ' chiudo la connessione (non mi serve più)
                objConn.Close()


/********STORE PROCEDURE **********/

create procedure SelectRootUrl

AS

SELECT RootUrl 
FROM SettingsRootUrl

GO