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")
