Data.Execute "Insert Into Users ( User, Clave,Recordar) Values ( '" & Usuar & "', '" & Contr & "',0)"