请教个问题关于vb连接access数据库
请高手帮个忙　解决一下下面的问题：
　我自己建立了一个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
请帮我看看是哪里的问题，如何改正，非常感谢！

[解决办法]
估计是从数据库中查询出一个数据，转变成整型，但还没有查询操作啊。
[解决办法]
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