strSql = ""
strSql = strSql & " select max(number) from dbo.#DATA" & vbCrLf
rss.Open strSql, cnn
numb = rss.Fields(0)
rss.Close
strSql = ""
strSql = strSql & " select max(number) from dbo.#DATA" & vbCrLf
rss.Open strSql, cnn
numb = rss.Fields(0)
rss.Close