Cita:
Iniciado por MeXiCaN 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.
en eso código intentas agregar algo.. eso es una consulta cierto...?
nos vemos...