请教个问题关于vb连接access数据库

Question

请高手帮个忙　解决一下下面的问题：
　我自己建立了一个access的数据库，但用vb实现时出现＂变量不匹配＂的提示
我的代码是这样的：
　private sub cmd1_click()
  dim strdb as string
  dim intdb as integer
  adodc1.connectionString ="provider=Microsoft.jet.oledb.4.0;Data Source=d:\database\M.mdb;Mod=readwrite|Share Deny None;Persist Security Info=False"
   strdb="select max(speed) from TableG"
   intdb=CInt(strdb)
   lblT.caption=intdb/4
 end sub
请帮我看看是哪里的问题，如何改正，非常感谢！

Answer 1

应该是这一句吧，不知道是什么用意
intdb=CInt(strdb)

Answer 2

private sub cmd1_click()
  dim conn as new adodb.connection
  dim rs as new adodb.recordset
  dim str as string
  dim intdb as integer
  conn.connectionString ="provider=Microsoft.jet.oledb.4.0;Data Source=d:\database\M.mdb;Mod=readwrite|Share Deny None;Persist Security Info=False"
  conn.open 
  str="select max(speed) as speed from TableG"
  rs.open str,conn,adopenkeyset,adlockreadonly
  if rs.recordcount>0 then
     intdb=rs!speed
     lblT.caption=intdb/4
  end if
  rs.close
  conn.close
  set rs=nothing
  set conn=nothing
 end sub

Answer 3

intdb=rs!speed这里还是有问题，提示说“在对应所需名称或序数的集合中，未找到项目＂谢谢如何解决？