He tratado por todos los medios hacer funcionar esto...
update datos de una tabla pero no sirve por favor auxilioooooooooooooo
Set RecSQL = New ADODB.Recordset
RecSQL.Open "UPDATE datos SET id=" & val(Text1) & " , nombre='" & Text2 & "' WHERE id =" & 1 , BD, adOpenStatic, adLockOptimistic
Set RecSQL = Nothing