谁能帮我改下代码
Sub AddCpbt()
　　Dim cpConn,Cpstring AS String
　　Dim conn AS OleDbConnection
　　Dim Cpadapter AS OleDbDataAdapter
　　Dim Cpdat AS DataSet
　　Dim dt AS DataTable
　　cpConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("dat/dwdat.mdb")
　　conn = New OledbConnection(cpConn)
　　Cpstring = "SELECT bookid,bookname,bookprice from book WHERE bookid='" &Trim(Request.QueryString("bookid")) & "'"
　　Cpadapter = new OleDbDataAdapter(Cpstring,conn)
　　Cpdat = New DataSet()
　　Cpadapter.Fill(Cpdat,"DreamweaverCP")
　　dt = Cpdat.Tables("DreamweaverCP")
　　Dim dr As DataRow = Cpbt.NewRow()
　　dr(0) = dt.Rows(0)("bookid")
　　dr(1) = dt.Rows(0)("bookname")
　　dr(2) = dt.Rows(0)("bookprice")
　　dr(3) = 1
　　dr(4) = dr(2) * dr(3)
　　Cpbt.Rows.Add(dr)
　　End Sub

这是我在网上找来的代码，里面有数据库名字跟我的不一样，谁能告诉我哪些是数据库名，哪些是数据库里的表名，哪些是表里的列名啊？谢谢了

[解决办法]
Sub AddCpbt()
　　Dim cpConn,Cpstring AS String
　　Dim conn AS OleDbConnection
　　Dim Cpadapter AS OleDbDataAdapter
　　Dim Cpdat AS DataSet
　　Dim dt AS DataTable
　　cpConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("dat/dwdat.mdb")
　　conn = New OledbConnection(cpConn)
　　Cpstring = "SELECT bookid,bookname,bookprice from book WHERE bookid='" &Trim(Request.QueryString("bookid")) & "'"
　　Cpadapter = new OleDbDataAdapter(Cpstring,conn)
　　Cpdat = New DataSet()
　　Cpadapter.Fill(Cpdat,"DreamweaverCP")
　　dt = Cpdat.Tables("DreamweaverCP")
　　Dim dr As DataRow = Cpbt.NewRow()
　　dr(0) = dt.Rows(0)("bookid")
　　dr(1) = dt.Rows(0)("bookname")
　　dr(2) = dt.Rows(0)("bookprice")
　　dr(3) = 1
　　dr(4) = dr(2) * dr(3)
　　Cpbt.Rows.Add(dr)
　　End Sub


红色的数据库名，蓝色的表名，紫色的列名。大概就这些