Visual Basic - Update error

Hola todos.. espero me puedan ayudar con esto :)
Quiero modificar datos en un recordset, pero en la instruccion Update me da un error. me podrian ayudar por favor?
este es mi codigo:

public con as ADODB.Connection
public rec as ADOBD.recordset
---
Set con = New ADODB.Connection
con.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=database_test"
con.Open
Set rec = New ADODB.Recordset
rec.CursorLocation = adUseServer
rec.CursorType = adOpenKeyset
rec.LockType = adLockOptimistic
rec.Open "SELECT * FROM clientes ", con, , , adCmdText

rec!tarjeta = txttarjeta.Text
rec!cliente = txtcliente.Text
rec.Update

rec.Close
con.Close

gracias de antemano :)

Por lo que veo accedes a MySql, y si no has tenido problema al añadir registros, yo revisaría la apertura del registro:
Rec.Open .....
Ya que le dices que abra la tabla clientes, como si fuera una cadena de Texto ( "adCmdText"), pero no indicas que registro quieres modificar.
No está de más (aunque sea de prueba) que muestres un mensaje si encuentra el registro buscado y entonces que lo modifique.