Hola bubilo:
Me peta en la funcion Añadir me dice que se esperaba una función o una variable.
Cita: '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
'End If
'End Function