Filling a dataset from a database

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ds = New DataSet()
'ds.ReadXml(Server.MapPath("cdCatalog.xml"))

connection = New Odbc.OdbcConnection("Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=D:\xslTest\XmlToDataSet\XmlToDataSet\bin\Debug\db1.mdb")
connection.Open()
Dim dataadapter As Odbc.OdbcDataAdapter = New Odbc.OdbcDataAdapter("select * from cd", connection)

dataadapter.Fill(ds, "table1")

Me.dg.DataSource = ds
Me.dg.DataMember = "table1"
Me.DataBind()
connection.Close()