Private Function LoadDataSet() As DataSet Dim sqlConnection As SQLConnection Dim sqlAdapater As SQLDataSetCommand Dim datasetProducts As New DataSet() Dim sqlDSN As String Dim sqlSelect As String
" Connection String and Select statement sqlDSN = "server=localhost;uid=sa;pwd=;database=grocertogo" sqlSelect = "Select * From Products"
" Connect sqlConnection = new SQLConnection(sqlDSN) sqlAdapater = new SQLDataSetCommand(sqlSelect, sqlConnection)
" Fill dataset create product table sqlAdapter1.FillDataSet(datasetProducts, "products")