สอบถาม vb 2008 เพื่อออก table ไม่ทราบว่าต้องใส่ โค้ดยังไงคับ

Private Sub query()
        strConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\database\db_wshop.accdb"
        objConn = New OleDbConnection(strConnString)
        objConn.Open()
        Sql = "select * from tbl_potion"
        With objCmd
            .Connection = objConn
            .CommandText = Sql
            .CommandType = CommandType.Text
        End With
        dtAdapter.SelectCommand = objCmd
        dtAdapter.Fill(ds)
  
จะเขียนให้ออก Table ได้อย่างไรคับ 


        dtAdapter = Nothing
        Page_Unload()
    End Sub