一段有关sql 2000,ado,vb6.0的数据库调用返回的问题代码。请高手帮忙！（一定给分）

Question

m = CStr(("select max(cast(carbrand_Id as int)) from car_db") + 1)语句无法执行，返回整个select字符串。
请高手帮忙。

Answer 1

(("select max(cast(carbrand_Id as int)) from car_db") 你这话又不会对数据库进行查询当然有错，它还是select max(cast(carbrand_Id as int)) from car_db，怎么可以+1呢，类型不符

Answer 2

dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=fasterweb;Initial Catalog=dataCar;Data Source=jiangh"
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.open "select max(cast(carbrand_Id as int))+1 as max_id from car_db",cn
debug.print rs("max_id").value
...
rs.close
set rs=nothing
cn.close
set cn=nothing

Answer 3

dim cn as new adodb.connection
dim rs as new adodb.recordsetcn.open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=fasterweb;Initial Catalog=dataCar;Data Source=jiangh"rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.open "select max(cast(carbrand_Id as int))+1 as max_id from car_db",cn
debug.print rs("max_id").value...rs.close
set rs=nothingcn.close
set cn=nothing