谁能帮我改下代码
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
红色的数据库名，蓝色的表名，紫色的列名。大概就这些
