Leggere dato sql in VB.net

        Dim stringasql, prova As String
        Dim SQLConn As New SqlConnection("Data Source=;Initial Catalog=;User Id=;Password=;")
        Dim SQLCmd As New SqlCommand() 
        Dim SQLdr As SqlDataReader

        stringasql = "SELECT tipo FROM Utenti WHERE [user]='" & Me.Text_User.Text & "'"

        SQLConn.Open()

        SQLCmd.Connection = SQLConn

        SQLCmd.CommandText = stringasql 

        SQLCmd.ExecuteNonQuery()

        SQLdr = SQLCmd.ExecuteReader

        prova = SQLdr.ToString

        SQLConn.Close() 'Close the connection 

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

public class utilia

public shared function GetConnection() as SqlConnection

dim objConnection = new SqlConnection("...")
return objConnection

end function 
end class