应该为这样
dim bookid as string
dim rs as new adodb.recordsetrs.open "select id from [dbo].[book] where (bookname='book123')",conn
bookid=rs("id")
rs.closeconn为数据库连接对象
dim bookid as string
dim rs as new adodb.recordsetrs.open "select id from [dbo].[book] where (bookname='book123')",conn
bookid=rs("id")
rs.closeconn为数据库连接对象
dim bookid as string
dim rs as new adodb.recordsetrs.open "select id from [dbo].[book] where (bookname='book123')",conn
bookid=rs("id")
rs.closeconn为数据库连接对象