Visual Basic - Contar Tablas

Buenas necesito que me hechen una manito, tengo una bd y en ella estoy creando tablas y llenandolas; a estas tablas se le coloca el nombre de PRECIOS_mes_mes_##, dentro del programa tengo el control para incrementar el ## para el nombre de las mismas, pero no se como hacerlo cuando me salgo de la aplicacion, los mas fiable quue pense es contar el numero de tyablas que hay con el nombre PRECIOS_mes_mes (no cuento los numerospor que no los necesito aqui), como puedo contar las tablas de la BD???

se os entiende todo!

pre: - me hechen una manito...
re: que te "hechen" una manito.. adonde?

pre: - estoy creando tablas y llenandolas;...
re: de que las llenais?

pre: - a estas tablas se le coloca el nombre de PRECIOS_mes_mes_##, ...
re: ?????

pre: - dentro del programa tengo el control para incrementar el ## ....
re: cual control tenès y como incrementais el ##???

pre: - pero no se como hacerlo cuando me salgo de la aplicacion...
re: eso es evidente no sabés hacerlo aunque no salgais de la aplicacion.

pre: - los mas fiable quue pense es contar el numero de tyablas ...
re: "los" mas fiable es "quue" dejeis de contar la "tyablas"!!!

pre: - (no cuento los numerospor que no los necesito aqui),....
re: Si contarais los "numerospor" seria un multiplicasion

pre: - como puedo contar las tablas de la BD??? ...
re: pos sensillamente las podes contar una a una (o de dos en dos si sabés sumar o multiplicar)

En esta vida todos tenemos una misión, el único problema es que algunos no saben lo que es "una misión" (Plinio el Viejo 250 a/c)

Carlos....

Acá te dejo un código fuente con el cual puedes recorrer cada una de las tablas de una base, y que te devuelva el ultimo numero:

Private function UltimaTabla () as Integer
dim intCantidadTablas as integer
dim cn as ADODB.Connection
dim rs as ADODB.Recordset

set cn = new ADODB.Connection
cn.ConnectionString = ElStringDeConexionATuDB
cn.Open

set rs = cn.OpenSchema(adSchemaTables)

While Not rs.EOF
If rs.Fields("TABLE_TYPE") = "TABLE" Then
if Left( rs.Fields("TABLE_NAME").Value , 7) = "PRECIOS" Then
intCantidadTablas = intCantidadTablas + 1
End If
End If
rs.MoveNext
Wend

rs.close
set rs=nothing

cn.close
set cn=nothing

UltimaTabla = intCantidadTablas