Bueno yo lo hago asi
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim rs1 as new adodb.recordset
dim sentencia as string
cn.open "Tu cadena de conexion"
sentencia="Select count(*) from tu_tabla1"
set rs=cn.execute(sentencia)
sentencia="Select count(*) from tu_tabla2"
set rs1=cn.execute(sentencia)
text1.text=rs(0)
text2.text=rs1(0)
set rs=nothing
set rs1=nothing
cn.close
Espero que te sirva
