روش استفاده از class در برنامه

[iran_sky]

سلام بجه ها
من برای سایتم حدیث رو رو طراحی کردم
کد :
کد HTML:

Imports Microsoft.VisualBasicImports System.Data.SqlClientImports System.DataNamespace systemPublic Class ravadid'Public Shared Function hadis(ByVal [karim] As String) As StringPublic Shared Function hadis() As String'=========================================== ====Dim int1 As Integer = 0Dim s_date As Dateint1 = s_date.Day'======================================= ========Dim con As New SqlConnection(system.Configuration.ConfigurationMa nager.ConnectionStrings("mysql").ConnectionString)Dim com As New SqlCommandcon.Open()com.Connection = concom.CommandText = "select * from ravadid where id='" & int1 & "'"Dim reader As SqlDataReader = com.ExecuteReaderIf reader.HasRows = True Thenreader.Read()hadis = reader("title")End Ifcon.Close()Return s_dateEnd FunctionEnd ClassEnd Namespace
حالا برای فراخوانیش اینطوری عمل کردم

کد HTML:

lbl_ravadid.Text = ravadid.hadis
برای من میاد اینو چاپ میکنه
12:00:00 AM
من در بانک برنامم 30 حدیث دارم که هر روز یک حدیث برای من نمایش بده
که با کمک بدست آوردن تاریخ روز بیاد مثلا امروز 5 اپریل رکورد شماره 5 رو برای نمایش بده و یک چیزه دیگه
تاریخ روز رو برای من همیشه 1 میزه در صورتی تاریخ میلادی 5 اپریله
دوستان اساتید راهنمایی کنید من رو باید چیکار کنم آیا کد برنامم درسته