Retrieving Data

Hi





I've got a module that contains the following function.


Imports System.Data.SqlClient





Module SQL_Sprocs


Function ListUsers()





Dim conn As New SqlConnection(System.Configuration.ConfigurationSettings.AppSettings("DBConn"))








Dim cmd As SqlCommand = New SqlCommand("list_users", conn)


cmd.CommandType = CommandType.StoredProcedure


conn.Open()





Dim dr As SqlDataReader





dr = cmd.ExecuteReader





ListUsers = dr





dr.Close()


conn.Close()





End Function


End Module








I then want to call this function from my webform. So I'm using the following





Dim dr As SqlClient.SqlDataReader





dr = Timetracker.SQLProcs.ListUsers()





Do While dr.Read


Label1.Text &= dr("first_name") & " " & dr("last_name") & ", "


Loop





dr.Close()








But it's not working. I want to have a module that contains all my sprocs and be able to call them from the individual webpages.





What am I doing wrong?





Lbob