I want to display table on a view. I have table in a dataset object .Please HELP

Dim vcon = connobj.makeConnection()
                Dim vTrans = vcon.BeginTransaction(Data.IsolationLevel.ReadCommitted)
                Dim qry1 = "Select * from testdemo"
                Dim ds As New DataSet
                Dim da = New OdbcDataAdapter(qry1, vcon)
                da.SelectCommand.Transaction = vTrans
                da.Fill(ds, "Table")
                vTrans.Commit()