Vb6 Bd

[MeXiCaN]

ok, no me sirvieron.

Que conste que antes de ponerla siempre miro para no tener que molestar y preguntar.

Expongo la duda:

Tengo este código, este código lo que hace es coge el texto de Text1.text y lo divide en palabras añadiendo, la palabra Añadido, que más adelante sera la consulta de una base de datos. Y en text2.text introduce el texto + Añadido.

Private Sub Command1_Click()

Dim i As Integer
Dim palabras As Variant
palabras = Split(Text1.Text)
For i = 0 To UBound(palabras)
Añadir(palabras) // Llamada a la función Añadir, esto es lo que no va
Text2.Text = Text2.Text & " " & palabras(i) + " [" + Añadido+ "]"
Next i

End Sub

En la función añadir:

Esta función recoge el valor que pasa por la funcion Añadir(palabras) y genera la consulta SQL en la base de datos. Bueno Debería porque no lo hace.
Y debereía devolverla junto con la palabra [campo3] para que arriba lo añada al text2.text.
Es decir: palabra[campo3] y asi con cada palabra del text1.text

Sub Añadir(palabras As String)
SQLTmp = "SELECT campo3 FROM miha WHERE campo1='palabras'"
Dim Db As Database 'Variable para las Bases de Datos
Set Db = OpenDatabase("data.mdb")

On Error Resume Next
Db.Execute SQLTmp, dbFailOnError
If Err Then
MsgBox "Se ha producido un error al ejecutar la orden:" & vbCrLf & SQLTmp
End If

End Sub

Muchas Gracias por la atención prestada.