Vb6 Bd

[bubilo]

Siempre salvandote las papas.... a lo que vos le decis funcion es solo un procedimiento, los procedimientos no devuelven valores y las funciones si.
aca te paso como hacerlo, para que funcione acordate de ir a el menu Proyecto->Referencias y ahi seleccionar alguna de microsoft DAO

Private Sub Command1_Click()
Dim i As Integer
Dim palabras As Variant
palabras = Split(Text1.Text)
For i = 0 To UBound(palabras)
Text2.Text = Añadir(palabras(i)) & " " & "Añadido"
Next i
End Sub


Public Function Añadir(palabras As String) As String
Dim base As Database
Dim tmiha As Recordset
Dim campo_campo3 As Field
Set base = OpenDatabase(App.Path & "\data.mdb")
Set tmiha = base.OpenRecordset("SELECT campo3 FROM miha WHERE campo1='palabras'")
Set campo_campo3 = tmiha.Fields("campo3")
If tmiha.RecordCount < 1 Then
MsgBox ("No existe el registro")
Añadir = ""
else
Añadir = palabra & " " & campo_campo3
endif
End Function