Dim selectstr As String
Dim cnn As SqlConnection
Dim sqldataset As DataSet
Dim sqlc As SqlCommand
Dim sqla As SqlDataAdapter
Dim sqlb As SqlCommandBuilder
cnn = New SqlConnection
sqldataset = New DataSet
cnn.ConnectionString = ConfigurationSettings.AppSettings("ConnectionString")
selectstr = "SELECT timetext FROM timetab"
sqlc = New SqlCommand(selectstr, cnn)
sqla = New SqlDataAdapter
sqla.SelectCommand = sqlc
sqlb = New SqlCommandBuilder(sqla)
sqla.Fill(sqldataset)