Dim conn As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("DSN_Northwind").ConnectionString) 
conn.Open() 
Dim da As SqlDataAdapter = New SqlDataAdapter("Select * from Customers", conn) 
Dim ds As DataSet = New DataSet()
da.Fill(ds, "CustomersTable")
