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