Dovrebbe essere (con un doppio passaggio):
codice:
Dim strSQL as String = "SELECT * FROM news where titolo = 'A' ORDER BY data DESC"
strSQLCount = "SELECT COUNT(*) as Totale " & strsql.Substring(strsql.IndexOf("*")+1)
strSQLCount= strSQLCount.Substring(0,strSQLCount.IndexOf("order")-1)
Ciao