test

This is a sample blog entry using a new tool, called VisualBlogger.

 
1Public Class Employee

2    Public Function GetEmployees() As DataSet

3        Dim ds As New DataSet

4        Dim oCon As New SqlConnection(ConfigurationSettings.ConnectionStrings("NorthwindConnection").ConnectionString)

5        Dim da As New SqlDataAdapter("Select * from Employees", oCon)

6        da.Fill(ds, "Employee")

7        Return ds

8    End Function

9End Class