Exibir parte de um texto de um campo do BD sem cortar palavra

Bom dia!

Alguém pode me ajudar? Estou precisando de um código ASP que me permita exibir um campo de um bando de dados mostrando apenas as 100 primeiras letras (caracteres) sem cortar a palavra no meio. É um sistema de notícias que estou implementando. o código está conforme descrito a seguir:

Conexão com o BD:

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../banco/db1.mdb") & ";"

 sqlstmt = "SELECT TOP 5 * from noticias order by data desc"
 'response.write(sqlstmt)
 'response.end
 set rsquery1 = objConn.execute(sqlstmt)
 %>

Código que exibe as 100 primeiras letras do campo "corpo", que é aonde vai descrito o texto da notícia:

<%=left(rsquery1("corpo"),100)& "..."%>

Agredeço a atenção.