نحوه استفاده از یک Function در class

[systam]

سلام دوستان
من در سایتم چند تا حدیت رو ازبانک خونده و در سایت نمایش میده کد برنامه رو در یک کلاس توی Function ریختم
کدش اینه

Public Shared Function revadid() As String
Dim con As New SqlConnection(System.Configuration.ConfigurationMa nager.ConnectionStrings("mysql").ConnectionString)
Dim int1 As Integer = 0
Dim pc As New Date
Dim day As String = Date.Now.Day
int1 = day
Dim com As New SqlCommand
con.Open()
com.Connection = con
com.CommandText = "select * from hadis where id='" & int1 & "'"
Dim reader As SqlDataReader = com.ExecuteReader
If reader.HasRows = True Then
reader.Read()
Dim result As String = reader("title")
End If
con.Close()
Return
End Function
حالا من کنار Return چی بنویسم که اطلاعات رو برام نمایش بده

[FirstLine]

با سلام
اون حدیث ها را تو چی میخوای نشون بدی؟
راحت ترین کار بر اساس این کدی که دارید اینه که پایین هشت خط آخر کدتو اینجوری عوض کید:



Dim reader As SqlDataReader = com.ExecuteReader
Dim result As String = "Emptyyyyyy"
If reader.HasRows = True Then
reader.Read()
result = reader("title")
End If
con.Close()
Return result


و مثلا برای نمایش در یه لیبل میتونی از کد زیر استفاده کنی:

label1.text=revadid()

با تشکر