basedatos.OpenRecordset("select * from TUsuario where cedula = " & CedulaCliente.Text, dbOpenDynaset)