Visual Basic - AYUDA POR FAVOR URGENTE

hola a todos espero me ayuden, por favor

El Usuario ingresa un texto en un textbox, y el cod debe analizar si algunas de las palabras que se ha ingresado se encuentra almacenado en la bd, si es asi entonces no me debe tomar la palabra de la oracion y entonces concatenarme las que cumplen con la condicion de no estar en la bd

Ejemplo:

Introduzco un texto "Hola a todos como estan vamos para la playa " esto estara en el cuadro de texto text1.text

en una tabla yo tengo almacenado como caracteres no deseados "a, el, la, para, del"

como haria para colocar en otro textbox no tomando en cuenta las palabras que estan en mi bd para que quede asi "Hola todos como estan vamos playa"

este es el cod que tengo, el cual tambien me toma en cuenta los espacios y todo lo demas...

Txt = RTrim(Text1.Text) & " "
J = 0
'ubico posiciones de los espacios
For I = 1 To Len(Txt)
If Mid(Txt, I, 1) = " " Then
J = J + 1
Wd(J) = I
End If
Next
'Cuento cuantos espacios hay
Sp = 0
For I = 1 To 50
If Wd(I) > 0 Then
Sp = Sp + 1
End If
Next
'divido por palabras
x = 0
For I = 1 To Sp
Select Case I
Case 1: x = x + 1: Pal(x) = Trim(Mid(Txt, I, Wd(I) - 1))
Case Is > 1: x = x + 1: Pal(x) = Trim(Mid(Txt, Wd(I - 1), Wd(I) - Wd(I - 1)))
End Select

'buscas la palabra si existe en tu tabla

sql = "select * from tbpalabras where palabras='" & Pal(x) & "'"
If Rs.State = 1 Then Rs.Close
Rs.Open sql, Cn, adOpenStatic, adLockReadOnly
If Rs.RecordCount > 0 Then x = x - 1

Next
'Aplico filter
For I = 1 To 50
Select Case I
'Case 1: sql = "palabras '" & Pal(I) & "'"
Case 1: sql = "palabras like '%" & Pal(I) & "%'"
'Case Is > 1: If Len(Pal(I)) > 0 Then sql = sql & " or palabras = '" & Pal(I) & "'"
Case Is > 1: If Len(Pal(I)) > 0 Then sql = sql & " or palabras like '%" & Pal(I) & "%'"
End Select
Next

If sql = "palabras like '%%'" Then sql = ""
Rs.Filter = sql

Set DataGrid1.DataSource = Rs

Espero me ayuden Buenas dias, gracias....

Hola,

Instr <- buscar caracteres en cadenas de strs
Right <- cortar desde la derecha
LEFT <- cortar desde la izq.

Lo que yo haria seria montarme bucle para ir pillando una a una todas las palabras ...

While total>0
'iria cortando la palabra por los espacios y asi directamente puedes poner esa palabra en el Where de la consulta para ver si está o no en tu bbdd. Si no esta la ponemos en una variable temporal (ojo con los espacios en blanco delante de la que vas añadir).
i así pim pam vamos montando la cadena sin las palabras tabu XD
wend

buenu suerte,

SMK